Remove leading zeroes but not all zeroes

Question

How can I remove all the leading zeroes but leave a final zero if the value only contains zeroes?

for example:

my $number = \"0000\";

Answer 1

This doesn't need to be done as a regex.

my @nums = qw/ 00000 000 000001 002 00000005 00000064 /;
@nums = map { $_ + 0 } @nums;