my @extragted_tags;
push @extracted_tags, $1 while s/$pattern/" " x length $1/ge;