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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $y = '' . 010;
 print qq{before: '$y'};
 ;;
 print $y + 1;
"
before: '8'
9