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