foreach my $shape (in $p2->Slides(4)->Shapes()){
  if ($shape->{Type}==18)
    {$shape~=/members\=[0-9]{2,3}/members\=$b4r4/;}
}