this is my code, can i not do this? it doesn't seem to filter any words out when i do.

foreach $word (split){
   if($word =~ /^[a-zA-Z]([a-zA-Z]*|-[a-zA-Z])*$/){
           $count{$word};
}
[download]

}