my $x = "016";

##</code><code>##

$ perl -e 'my $x="016"+1; print $x,"\n"'
17
$

##</code><code>##

$ perl -e 'my $x=eval "016"; print $x,"\n"'
14
$