http://www.perlmonks.org?node_id=500805


in reply to Re: Comment Removal
in thread Comment Removal

That doesn't compile, +* and ** aren't valid. The grouping parenthesis are still needed. 

perl -MData::Dumper -MRegexp::Common -e 'print Dumper qr/$RE{comment}{
+HTML}/';
$VAR1 = qr/(?-xism:(?:(?:<!)(?:(?:--(?:[^-]*(?:-[^-]+)*)--\s*)*)(?:>))
+)/;

[download]

In Section Seekers of Perl Wisdom