$string = "Hier sollte jetzt ein langer String sein, der auch hallo welt enthält. Wenn er nicht Hallo Welt enthält ist das auch nicht schlimm. weltstein sollte aber nicht gefunden werden.";

@woerter = qw/hallo welt/;
$woerter = join "|", @woerter;
$anz = () = $string =~ m/\b(?:$woerter)\b/g;