in reply to RegEx to remove leading zeros from a hex number

s/^0+(?=.)//s

[download]

In Section Seekers of Perl Wisdom