【求助】关于正则表达式的多次替换

yatezhimi

摘要： 请问在perl中使用正则表达式进行匹配替换如何可以让一个语句执行多次？我将
相同的语句写三次或者将一个语句循环执行三次结果显示都只进行了一次替换。
具体：（刚学请轻拍，谢谢）
想将文本中： XU21 n26  n3n   n10    NOR2X1 替换为：

                   XU21 n26 n26n n3n n3n  n10n n10n  nClk NOR2X1_sab1
                   XUXI2126 n26n n26 CLKINVX1
                   XUXI213   n3n   n3   CLKINVX1
                   XUXI2110 n10n n10 CLKINVX1

    我写了正则表达式：^(XU[0-9]*) ([nP][0-9\[\]]*)(.*) ([nS])([0-9\[\]]*) (.*nClk.*)$进行匹配
                替换为：\1 \2\3 \4\5n \6\r\nXI\1\5 \4\5n \4\5 CLKINVX1
                 在notepad里面手工操作三次可以完成，但用perl时，使用下面语句进行匹配替换
s/^(XU[0-9]*) ([nP][0-9\[\]]*)(.*) ([nS])([0-9\[\]]*) (.*nClk.*)$/\1 \2\3 \4\5n \6\r\nXI\1\5 \4\5n \4\5 CLKINVX1/g;
s/^(XU[0-9]*) ([nP][0-9\[\]]*)(.*) ([nS])([0-9\[\]]*) (.*nClk.*)$/\1 \2\3 \4\5n \6\r\nXI\1\5 \4\5n \4\5 CLKINVX1/g;
s/^(XU[0-9]*) ([nP][0-9\[\]]*)(.*) ([nS])([0-9\[\]]*) (.*nClk.*)$/\1 \2\3 \4\5n \6\r\nXI\1\5 \4\5n \4\5 CLKINVX1/g;
语句是三行，但结果却只会执行1个替换，即将n10变为n10n 并增加 XIXU2110 n10n n10 CLKINVX1
请问怎么才能在perl中让一个相同的语句执行多次呢？例如本题中我想让这个替换执行三次，把n26,n3,n10全部替换为n26 n26n,n3 n3n,n10 n10n 并增加相应的反相器呢？谢谢！！