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

##</code><code>##

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