Select Code to Download

  ($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0]

#!/usr/bin/perl
use strict;
...
    }
    print "\n";
}

Pre-sorted (10).
----------------
...
ST     243/s  181%    --
     force 17440 regexes
        ST 1000 regexes