# perl -le '$_="abc"; print 1 if ?b?'