my $open = qr{
  < [a-zA-Z][a-zA-Z0-9]*
  (?:
    \s+ \w+
    (?: \s* = \s*
      (?: "[^"]*" | '[^']*' | [^\s>]* )
    )?
  )*
  \s*
  >
}x;