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

  DB<155> p $y
<blah1 phase="2" type="MyType" more_keys="Values" <Unwanted/>


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


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

  DB<158> print join "|", $y =~ $re
MyType|