my $number = "0000";

my $number = "0";

$number =~ s/^0*//;

$number =~ s/^0*(\d+)$/$1/;

0    -> 0
0000 -> 0
0001 -> 1

$number =~ s/0*(\d+)/$1/;