http://www.perlmonks.org?node_id=988743


in reply to Re^2: Looking for pointers or optimizations.
in thread Looking for pointers or optimizations.

Better, but not yet correct: you should tell Perl which file handle to read from:
while (<$fh>) {
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ