$num=~s/^(-?)0*/$1/; [download]
In reply to Re: Removing leading zeros by Banky in thread Removing leading zeros by idunno