pregexp Schlüsselwörter in beliebiger Reihenfolge

[beatovich]

hallo

Hello,

ich rätsele darüber, ob man mit Perl kompatiblen Regualar Expressions folgendes erreichen kann:

zwei oder mehrere Schlüsselwörter tauchen im Text in beliebiger Reihenfolge auf. Aber nur, wenn beide oder alle enthalten sind, matcht das Pattern.

Liebe Grüße
Tom S.

Mein üblicher Ansatz wäre

sub match_all{
  my $teststring=shift||'';
  my @mustmatch = @_;
  @mustmatch or return 1;

  while (@mustmatch){
    $teststring =~ m{$_} or return undef;
    #oder
    # ( index($teststring, $_) > -1 ) or return undef;
  }
  return 1;
}