$num=~s/^(-?)0*/$1/;