#!/usr/bin/perl -w

use strict;

my $data = 'any number of td/tds><td>stuff</td><td>email@email.com</td><td>more stfff</td><td>next@next.co.uk</td><td\>r.h@a.com</td>';

my @emails = ($data =~ /<td>([^>\@]+?\@[^<\@]+)<\/td>/g);

print join "\n", @emails;