#!/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;

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Email::Find;

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>';

find_emails($data, sub {
    my($email, $orig_email) = @_;
    print $email->format."\n";
    return $orig_email;
});