Select Code to Download

$text   =~ s|/\*          # First slash and star /*
             (?:          # Non-backreferencing parentheses
...
                .         # ok to inch along
             )*           # Zero or more
           \*/||sx;       # Followed by a star slash */

my $text = 'foo /* bar **/ baz /* ack! ph! */';
$text =~ s|
...
              \*\/       # '*/', escaped
          ||x;
print $text;