Yes, certainly I need the s///. Still doesn't work, though. It appears that no text is being captured to regexp. I changed script a bit but still is not working. No errors or messages but no output to print command either.

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