#!/usr/bin/perl use warnings; use strict; my $level = 0; while (<>) { if (m%(.*?)\n}; } elsif ($level == 1) { print "
$text"; $level = 1; } elsif (m%(.*?)%) { my $text = $1; if ($level == 1) { print qq{\n\n}; } print qq{$text\n}; $level = 2; } } if ($level == 1) { print "
$text