my $count = "Hallo Welt da draußen" =~ /a/g;
print $count;