Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "numeric sort: @x\n";

@x = qw( 5xxx  2xxx 300x  10xx  );
@x = sort {$a =~/^d+/ <=> $b =~/^d+/} @x; # WRONG
print "regex sort: @x\n";

@x = qw( 5xxx  2xxx 300x  10xx  );
@x = sort {my ($y) = $a =~/^(\d+)/; 
           my ($z) = $b =~/^(\d+)/; 
           $y <=> $z} @x;
print "regex sort: @x\n";

 _  _ _  _  
(_|| | |(_|><
 _|