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