Select Code to Download

sub dhob2num
{
...
  if ($s =~ /^0/) { return oct($s); } # Note: should validate the stri
+ng
  return ( 0 + $s );
}