DB<132> p $x
<blah1 phase="2" type="MyType" more_keys="Values" <Unwanted/>  <SomeTagIwant><k1="v1"></SomeTagIwant>

  DB<133> $re = qr/\btype="([^"]+)".+?<(\w+TagIwant\b|$)/


  DB<134> print join "|", $x =~ $re
MyType|SomeTagIwant