#### \btype="([^"]+)".+<(\w+TagIwant\b) #### perl -E '$x=q| |; say for $x=~/\btype="([^"]+)".+<(\w+TagIwant\b)?/'