1:53 >perl -wE "say 022;"
18

 1:53 >perl -wE "say oct(22);"
18

 1:53 >perl -wE "say oct(022);"
Illegal octal digit '8' ignored at -e line 1.
1

 1:53 >