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

##</code><code>##

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