C:\test>perl -le"print 'a 'x50 for 1..1e6" > 0.1kLines.txt

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

C:\test>junk71 -T=1 0.1kLines.txt > output.cmp
Started Thu Mar 24 04:08:03 2011
1000000 31824.8361716389 at C:\test\junk71.pl line 30, <> line 1000000.
Ended Thu Mar 24 04:08:39 2011
51.246 6.021 0 0 at C:\test\junk71.pl line 38, <> line 1000000.

C:\test>junk71 -T=4 0.1kLines.txt > output.cmp
Started Thu Mar 24 04:09:02 2011
1000000 14066.0824682062 at C:\test\junk71.pl line 30, <> line 1000000.
Ended Thu Mar 24 04:10:14 2011
84.973 71.698 0 0 at C:\test\junk71.pl line 38, <> line 1000000.