perl -le '($a = undef) or "foo"; print $a'