?perl -e"$line = undef; print 3 + $line"
3
?perl -e"$line = undef; print '3' . $line"
3
?perl -e"$line = undef; print 3 unless $line"
3
?perl -e"$line = undef; print 3 unless defined $line"
3