Select Code to Download

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

use strict;
open FILE, "<temp.html";
my (@tags, @text);
...
}
print "Tags:\n", join "\n", @tags;
print "\nText:\n", join "\n", @text;