Select Code to Download

local $/ = "";
while (my @records = <$fh>) {
    foreach my $line (@records) {

local $/ = "";
while (my $paragraph = <$fh>) {
...
        print "<$line>\n";
    }
}