Select Code to Download

$/ = "-------\n";
my @records;
...
    my @entries = map { /([^:]+):\s*(.*)/ } split /\n/;
    push @records, { @entries } if @entries;
}