time perl -le'print "a"x1024 for 1..100_000' > 1kLines.txt
time perl -pe's/a/A/g' 1kLines.txt > output.cmp
time perl bukQueue.pl 1kLines.txt > output.tmp
diff -sq output.cmp output.tmp

##</code><code>##

time perl -le'print "z"x1024 for 1..100_000' > 1kLines.txt

##</code><code>##

time perl -le'print "a"x1024 for 1..100_000' > 1kLines.txt
real      0m00.685s
user      0m00.228s
sys       0m00.460s
cpu       0m00.688s

time perl -pe's/a/A/g' 1kLines.txt > output.cmp
real      0m44.254s
user      0m43.323s
sys       0m00.924s
cpu       0m44.247s

rm -f output.tmp
time perl tyeQueue.pl 1kLines.txt
real      0m52.719s
user      1m32.618s
sys       0m02.692s
cpu       1m35.310s
diff -sq output.cmp output.tmp
Files output.cmp and output.tmp are identical

time perl bukQueue.pl 1kLines.txt > output.tmp
real      0m49.997s
user      1m35.598s
sys       0m01.696s
cpu       1m37.294s
diff -sq output.cmp output.tmp
Files output.cmp and output.tmp differ