substr($foo, 14, 10) =~ tr/,/+/;
	$foo =~ tr/,/\t/;
	substr($foo, 14, 10) =~ tr/+/,/;