use strict;
use LWP::Simple;

my $html = get("http://example.com");

while ($html =~ /<td>(.+)?<\/td>/gc) {
    print $1."\n";
}

# untested as written on my mobile