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{$_}";
}

##</code><code>##

@body=split /\n/, $body, 4;

##</code><code>##

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);