Select Code to Download

my @sorted = sort {
    ($a =~ /\.([0-9]+)-([0-9]+)\./, 100*$1+$2) 
<=> ($b =~ /\.([0-9]+)-([0-9]+)\./, 100*$1+$2)
} @strings;

map { s/-(\d)\./-0\1./ } @strings;
my @sorted = sort @strings;