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