##
my %hash;
while (my $line = ) {
foreach my $word ( $line =~ m/\b([a-zA-Z]{2,4})\b/g ) {
$hash{lc $word}++;
}
}
print "$_\n" for sort keys %hash;
##
##
while (my $line = ) {
$hash{lc $_}++ for $line =~ m/\b([a-zA-Z]{2,4})\b/g;
}
#or
do { $hash{lc $_}++ for m/\b([a-zA-Z]{2,4})\b/g } for ;
##
##
while (my $line = ) {
$hash{lc $_}++ for $line =~ m/([a-zA-Z]{2,})/g;
}
delete $hash{$_} for grep /(\w)\1{4}/, keys %hash;