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

##</code><code>##

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