die Fehlermeldung stammt auf jeden Fall aus dem qw// mit dem Komma dazwischen.
Anstatt die Satzzeichen mit einer Schleife zu durchlaufen (macht er das so überhaput???) solltest du dir einen normalen regulären Ausdruck zulegen, z.B. $word =~ s//[,.usw]/g.