print do{ if( $_ ){ 'foo' }else{ 'bar' } } for 0,1;; bar foo