$word =~ s/\Q$_\E// for (qw/, . ! ?/);