Are you only trying to remove periods from the ends of words, then? Try this:

$word =~ s/\.$//;
[download]