Select Code to Download

C:\test>dir junk.dat
30/03/2012  17:39        53,777,008 junk.dat
...
Some random junk 835571 146942 some more random junk
Some random junk 783477 720062 some more random junk
Some random junk 197540 926361 some more random junk

#! perl -slw
use strict;
...
substr( $_, 0, 8, '') for @a;

printf "Took %.6f seconds; check memory? ", time()- $start; <STDIN>;

C:\test>t-GRT junk.dat
1000001 records
Took 6.704649 seconds; check memory? 274.1MB

#! perl -slw
use strict;
...
];

printf "Took %.6f seconds; check memory? ", time()- $start; <STDIN>;

C:\test>t-TYE junk.dat
1000001 records; check memory 143.8MB
Took 228.533225 seconds; check memory? 649.0 MB