>perl -le"print 'abc' !~ /b/ ?1:0"
0

>perl -le"print 'abc' =~ /^(?!b)/ ?1:0"
1

>perl -le"print 'abc' =~ /(?!b)/ ?1:0"
1