in reply to Removing leading zeros

If you need to worry about possible negatives. 
$num=~s/^(-?)0*/$1/;

[download]

In Section Seekers of Perl Wisdom