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