Select Code to Download

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

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