$text =~ s/<.+?>//g;
push @array, $text;

##</code><code>##

for (@array) {print '<b>' . $_ . '</b>'}