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