in reply to RegEx: How to negate more than one character?

Hi,
#!/usr/local/bin/perl use strict; use warnings; my $match = "sfajdsllllllllllbhafdssss"; print "Yes...Working.." if ($match !~ m#(ah|bh)#gi);