Select Code to Download

local $/ = '%%%';
# Assume 'FH' is input file, opened elswhere
...
    my %rec = split /[:\n]/, $line;
    push @records, \%rec;
}