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

sprintf("%lo", $val);
