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

##</code><code>##

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