perl -le '$a = undef or 1; print $a'             
perl -le '$a = undef || 1; print $a'

##</code><code>##

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

##</code><code>##

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