Zum entfernen bestimmter Zeichen würde ich ja den Translationsoperator vorschlagen:
$word =~ y/.,!?//d;