perl -lape' $F[1] =~ s{\|([^|]*)\|([^|]*)}{$1$2}; $F[2] =~ s{\|([^|]*)\|([^|]*)}{$1$2}; $_ = join("\t", @F); ' inputfile