my $outrecord = join( '|',
        $fld[0], $fld[3], $fld[4], $fld[5], $fld[6], $fld[7], $fld[8] );