$newWord =~ s/[\r\n]//g;