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