$word =~ s/\W+//g;
    next if length $word < 4;