foreach  ($cont =~ m/([a-z]{3})/g ){

 $hash{$_}++;
}