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'