@count = split(//, $word);  ### why split before removing \W ???
    $word=~s/\W//g;

    next if @count < 4;  ### short circuit (keep nesting down); don't
                         ### need scalar