Help for this page
$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;