#!/usr/bin/perl5 -w
$/ = undef;
$slurp = <>;
while ( $slurp =~ m#\n(\s+)[^\n]*?\n\1# )
{
$slurp =~ m#^(.*?\n(\s+)- [^\n]*?\n)(\2
.*?\n\2
[^\n]*?\n)(.*)$#s;
$prefix = $1;
$middle = $3;
$suffix = $4;
$middle =~ s#^# #gm;
$slurp = $prefix . $middle . $suffix ;
# print STDERR ( length $slurp , "\n" );
}
$slurp =~ s#\n[\s]*?#\n #;
$slurp =~ s#\n[\s]*?#\n #;
$slurp =~ s#\n[\s]*?#\n #;
$slurp =~ s#\n[\s]*?#\n #;
$slurp =~ s/^[\s]*/ <title>\n /gm;
$slurp =~ s#\s*#\n #g;
$slurp =~ s/ NEWITEMHEADER.*?>/>/g;
$slurp =~ s/ FOLDED.*?>/>/g;
$slurp =~ s/ ADD_DATE.*?>/>/g;
$slurp =~ s#\n#\n
#\n#g;
1 while $slurp =~ s#\n(\s+)
- (.*?)\n#\n$1
- \n$1 $2\n$1
\n#;
1 while $slurp =~ s#\n(\s+)\n\s* - (.*?)\n #
\n$1 $2\n$1\n #s;
1 while $slurp =~ s#\n(\s+)\n(\s+)\n\2
#\n$2
\n$1#gs;
1 while $slurp =~ s#\n(\s+)\n(\s+)(.*?)\n\2
#\n$2
\n$1#gs;
$slurp =~ s#\n(\s+))(.*?)#\n$1#g;
$slurp =~ s/#\n \n \n #g;
$slurp =~ s#\n(\s+)<[Hh]3>(.*?)\n#\n$1\n$1 \n$1 $2\n$1 \n$1\n#g;
# $slurp =~ s##\n \n #g;
$slurp =~ s##g;
# $slurp =~ s#- \n
\n