if ( $word =~ /\W+/) {
                $letters = (index $word, $&)-1;
        }