open (FILE, "<$read") or die ("Couldn't open file to read: $!");

while ($line = <FILE>) {

   next unless ($line =~ /<tr/i);

   my $match;

   while (($additional_lines = <FILE>) !~ /<[\/]{0,1}tr/i) {

       $match .= $additional_lines;

   }
   print "MATCH: " . $match . "\n\n";
}

close FILE;

exit 0;