Select Code to Download

my @data; $#data = 25e6; my $i = 0;
$data[ $i++ ] = pack "NNA*", m[(\d+)\D+(\d+)], $_ while <>;

@data = sort @data;

substr $_, 0, 8, '' for @data;