use strict;
my $f=0;
my %db;
$/="";
while (<>) {
$f=1,next if /^==========/;
next unless $f;
my @item=split /\n/, $_, 2;
$db{$item[0]}=$item[1];
}
foreach (keys %db) {
print "Title: $_\nBody: $db{$_}";
}
####
@body=split /\n/, $body, 4;
####
my @lines=split /\n/, $body;
my @hdr;
my $l;
while ($l=shift(@lines)) {
last if length($l)>40
push @hdr, $l;
}
$body=join("\n", $l, @lines);