perl -e "my $shoo = 50; $shoo ||= 100; print $shoo;"

##</code><code>##

50

##</code><code>##

perl -e "$shoo=50; $shoo = ($shoo)?50 : 100;print $shoo;"