my $foo = "077";
print eval($foo), "\n";     # prints 63