my $re = qr/(?:a|b)h/;

print 'abcdef' !~ $re;
print 'ahcdef' !~ $re;
print 'abbhef  !~ $re;

##</code><code>##

1
(0)
(0)