Select Code to Download

use strict;

...
foreach (keys %db) {
        print "Title: $_\nBody: $db{$_}";
}

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

my @lines=split /\n/, $body;
my @hdr;
...
  push @hdr, $l;
}
$body=join("\n", $l, @lines);