Select Code to Download

#!/usr/bin/env perl -w

...
  close $fh or die "Error closing $file: $!\n";
  return +{ map +( $_ => 1 ), @words };
}

    @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

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