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;