use warnings;
use strict;

my $var = '0000';
$var =~ s/^0+//g;
print ">>>$var<<<\n";

__END__

>>><<<