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