c:\@Work\Perl\monks>perl -wMstrict -le
"my $y = '010';
 print qq{before: '$y'};
 ;;
 $y =~ s/^0+//;
 print qq{after:   '$y'};
 print $y + 1;
"
before: '010'
after:   '10'
11