Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    my ($yr, $mn, $dy, $key) = split /:/;
    print "$mn/$dy/$yr = $key\n";
}

#!/usr/local/bin/perl -w
use strict;
...
foreach (sort @bydate) {
    print "@{[unpack ('A4A2A2A*',$_)]}\n";
}