$ ls -lh big.txt 
-rw-r--r-- 1 mario mario 767M Oct  5 10:07 big.txt

$ perl demo.pl big.txt 
0.154 seconds