$val=<STDIN>;
$val = oct($val) if $val =~ /^0/;