$_ = "abc"; print /b/ ?1:0,"\n"; # 1 $_ = "def"; print /b/ ?1:0,"\n"; # 0