my @inpelt = split /\|/, $inpbuf;
	my $outbuf = join ',', @inpelt;

##</code><code>##

	$trnbuf =~ s/\|/,/g;