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/;
}
}