$CODE =~ m{
  \A
  (?:
    [^<>"]+                   # non-string, non-comment
    |
    "[^"\\]*(?:\\.[^"\\]*)*"  # string
    |
    <[^>]*>                   # comment
  )*
  \z
}x;