my $x = "00012"; print "$x\n"; $x+=0; print "$x\n"; ##prints #00012 #12