Select Code to Download

sub sorted { 
...
        $a->[3] <=> $b->[3]
    } map { [ $_, (/([A-Z]+)(\d+)(?:-(\d+)){1,2}/) ] } @_;
}