perl可以用正则表达式替换多个子串吗？

Question

我有一些子串[ aa bb cc ],如$line = "1 2 a b [ aa bb cc ] c d [ bb cc ] 3 4".我想修剪这些子串中的所有空格.以下代码不起作用.

while($line =~ /\[(.*?)\]g/)
{
  $1 =~ s/\s+//g;
}

请有人帮忙吗

Answer 1

s{\[(.*?)\]}{
   my $s = $1;
   $s =~ s/\s+//g;
   $s
}eg;