my %hash;

if ($text =~ /(\b[a-zäöüß]+\b)/g) {
               $hash{$1}++;
}