$ perl -wMstrict -le 'print 0+"010"'
10
$ perl -wMstrict -le 'print 0+ 010 '
8

##</code><code>##

$ perl -wMstrict -le 'my $x = "016"; print eval("$x * 10");'
140
$ perl -wMstrict -le 'print 016 * 10;'
140