Select Code to Download

sub _split {
   ...
   $x =~ s/^\s*([-]?)0*([0-9])/$1$2/g
   ...
}

   ...
   $x =~ s/^\s*([-]?)(0*[0-9])/$1$2/g
   ...