Select Code to Download

@sorted = map{$_->[0]} sort{$a->[1] <=> $b->[1]} map{ [$_, /(\d+)/g] }
+ @unsorted;