my @big_heads = grep /BIG HEAD/, $s =~ m#<tag\d+>.*?</tag\d+>#sg;