use strict;
open FILE, "<temp.html";
my @tags = grep /^<.*>$/, <FILE>;
print @tags;

##</code><code>##

use strict;
open FILE, "<temp.html";
my (@tags, @text);
while (<FILE>) {
  chomp;
  if (/^<.*>$/) {
    push @tags, $_;
  } else {
    push @text, $_;
  }
}
print "Tags:\n", join "\n", @tags;
print "\nText:\n", join "\n", @text;