perl -E '$x=q|<blah1 phase="2" type="MyType" more_keys="Values" <Unwanted/>  <SomeTagIwant><k1="v1"></SomeTagIwant>|;  say for $x=~/\btype="([^"]+)".+<(\w+TagIwant\b)?/'