$num = (~abs($num))+1 if $num < 0;

##</code><code>##

       return join( '', reverse @ret) || 0;