my $close = qr{
  < / \s* [a-zA-Z][a-zA-Z0-9]* \s* >
}x;