>perl -wE "$x=33; say do{42 unless $x}"
33