Help for this page

Select Code to Download


  1. or download this
    @x = sort { ($a =~/^(\d+)/)[0] <=> ($b =~/^(\d+)/)[0] } @x;