C:\test>perl -le"print 'a 'x512 for 1..1e5" > 1kLines.txt

C:\test>perl -pe"s/a/A/g}{warn join' ',$., times" 1kLines.txt > output.cmp
100000 12.214 0.171 0 0 at -e line 1, <> line 100000.

C:\test>junk71 -T=1 1kLines.txt > output.cmp
Started Thu Mar 24 03:44:16 2011
Ended Thu Mar 24 03:44:31 2011
16.177 0.764 0 0 at C:\test\junk71.pl line 38, <> line 100000.

C:\test>junk71 -T=4 1kLines.txt > output.cmp
Started Thu Mar 24 03:44:44 2011
Ended Thu Mar 24 03:44:50 2011
19.468 4.492 0 0 at C:\test\junk71.pl line 38, <> line 100000.