$data =~ m/(<[^>]+>)/;
print $1, "\n";      # print the tag

##</code><code>##

$data =~ m/<([^>]+)>/;
print $1, "\n";      # print the tag