Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @sort= map { my $x=join"\0"x5,(split/\s*,\s*/)[@cols];
        $x =~ s/(^|[^\d.])(\d+)/$1.pack("N",$2)/eg; $x } @lines;
print @lines[  sort { $sort[$a] cmp $sort[$b] } 0..$#sort  ];

die "Usage: $0 col[,col[...]] [file[,...]]\n" unless @ARGV;
my @cols= map { $_-1 } split/,/,shift;
...
    sort { $a->[0] cmp $b->[0] }
        map { my $x=join"\0\0\0\0",(split/\s*,\s*/)[@cols];
          s/(^|[^\d.])(\d+)/$1.pack("N",$2)/eg; [$x,$_] } <>;