in reply to Population of an array
my @big_heads = grep /BIG HEAD/, $s =~ m#<tag\d+>.*?</tag\d+>#sg; [download]