$ perl -wle '@a = "foo"; print "Yes" if 2 =~ (@a + 1)'
    Yes