my $extracted_tags;
$extracted_tags .= $1 while s/$pattern/" " x length $1/ge;