Guest wer Code: (dl ) (?! ... ) Funktioniert nicht?
(?! ... )
1 2 3 4 5 6 7
my $str = 'abc'; my $pat = 'c'; say $str =~ /$pat/? 'match': 'mismatch'; say $str =~ /(?!$pat)/? 'match': 'mismatch'; __END__ match match