Select Code to Download

print join "\t", split ' *(?=[^0-9,])', '15,567 -25,324-45,234';;
15,567  -25,324 -45,234

perl -nle"print join qq[\t], split ' *(?=[^0-9,])'" < bad.file > good.
+file