FOO\twww.yahoo.com/yahoo\tsomething else\tand another
BAR\twww.altavista.com\tsomething else\

##</code><code>##

while (<FILE>) {
	my @line = split /\t/;

	# do_something...
}

##</code><code>##

1. <tr><p>Some content</p> # will screw up because it skips to the next line
2. <p>Some content</p></tr> # will also screw up because it doesn't take the last line

##</code><code>##


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;

##</code><code>##

undef $/;

my $read = 'test.html';

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

my $file = <FILE>;

close FILE;

my @possible_search_terms = split /<tr[^>]*?>/i, $file;

foreach (@possible_search_terms) {

    next if $_ =~ /^\s*$/;

    print "WORKING: '" . $_ . "'\n";


}