如何将一个文件中的行中的特定内容匹配后添加内容

[Database_PGCs]

文件A中有如下内容：
ADCY3 |plasma membrane|cell membrane|cytoplasmic membrane|plasmalemma|
ADCY4 |integral to membrane|
ADCY7 |plasma membrane|cell membrane|cytoplasmic membrane|plasmalemma|
ADCYAP1 |extracellular|

A中的第二列（以\t分割）如plasma membrane 与 文件B有对应关系，现在想在A中加一列，此列储存B中对应的信息
B如：
Go：1111 plasma membrane
Go：1112 cell membrane

要求A的结果类似：
ADCY3 |plasma membrane|cell membrane|cytoplasmic membrane|plasmalemma| |Go：1111|Go：1112|Go：1111|Go：1111|

$^I = ".bak";可以打开备份文件，但是我还不是很懂如何实现，请大家帮忙

[thy38]

看到最后才知道是Perl，跳过。。。

[Database_PGCs]

[Quote=引用 1 楼 thy38 的回复:]

看到最后才知道是Perl，跳过。。。
[/Quote]
默认为perl了

[fibbery]

|Go：1111|Go：1112|Go：1111|Go：1111|这个没看出来规律。

[Database_PGCs]

顶起来