perl -e '$_=shift;print(defined$_?$_:0)'

##</code><code>##

perl -e '$_=shift;print(/^$/?0:$_)'