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

++ for pointing out this Chromatic.

But if you just add undef $/; before reading file, then you get it all in a scalar variable

undef $/; my $words = <$fh>;