$ perl -le 'print 1 if "foo" =~ /o/; print 2 if "asdf" =~ //' 1 $ perl -le 'print 1 if "foo" =~ /z/; print 2 if "asdf" =~ //' 2 $ perl -le 'print 1 if "foo" =~ /o/; print 2 if "asdf" =~ /(?:)/' 1 2