my $outrecord = join '|', @fld[0, 3..8];