$COMMENT_rex = qr{
  <!--            # opening <!--
  [^-]*           # 0 or more non hyphens
  (?:
    (?! -- \s* > )  # as long as it's NOT a -->
    -               # -
    (?:
      -             # -
      [^-]*         # 0 or more non -
      (?: - [^-]+ )*  # -, 1 or more non -, 0 or more times
    )?              # optionally...
    [^-]*           # 0 or more non -
  )*              # 0 or more times
  -- \s* >        # the ending -->
}x;

##</code><code>##

$COMMENT_rex =
  qr{<!--[^-]*(?:(?!--\s*>)-(?:-[^-]*(?:-[^-]+)*)?[^-]*)*--\s*>};