$ perl -i.bak -pe 's/\r$//' your-wordlist.file

##</code><code>##

open my $wordhandle, "<:crlf", $wordfile or die ...