$word =~ s/\.$//;