Select Code to Download

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

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