Perl实现片段元素移除

（想要实现的是从all_bids port里面把含有clk的port给删掉，即all_bids里面的GPI01，02和03）参考如下-----
1、下面是一个scan stil format 片段行的截取：
“all_bids” = ’ “GPI01” + “GPI02” + “GPI03” +
“GPI04” + “GPI05” + “GPI06” ’ ; // #signals = 6
“_clk” = ’ “GPI01” +“GPI02” +“GPI03” ’ ; // #signals = 3
2、下面是perl程序：
if ($line =~ /"_clk" = .+/) {

$clk_flag = 1;

$bid_flag =0;

} elsif ($line =~/“all_bids” = .+/) {

$clk_flag =0;

$bid_flag =1;

}
if ($clk_flag == 1) {

@clk_ports = split (/\s+/, $line);

for ($i = 1; $i <= $#clk_ports; i++) {

  if ($clk_ports[$i] =~ /\"(.+)\"/xms) {
  
     push (@CLK, $i);
     
  }

}
print $line;

} elsif ($bid_flag ==1) {