$entry =~ tr/\r/ /;