Help for this page

Select Code to Download

Select or download this

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