$ perl -MO=Deparse -e 'print 0?$a:$b' 
print $b;