my $x = <<'EOX';
A {
  B 123
  C xyz
}
EOX
$x =~ s/A\s*\{.+?\}//s;
print "x='$x'\n"; # empty