debugge mal lieber was hinten rauskommt indem du in die Schleifen ein
print "$word\n"; # und $pre und $post
einfügst.