chomp (my @words = <$fh>);

##</code><code>##

tr/\r\n//d for my @words = <$fh>;