use strict; use warnings;
{
    local $/='';
    my $entries = <DATA>;
}
my %mail;
while ($entries =~ /([A-Za-z0-9._-]+\@tiles.ie)/g) {
    $mail{$1}++; # count ocurrences
}
print join "\n", keys %mail;

__DATA__
ljkljkds lkjlkj@tiles.ie lkjljlk
gerry@tiles.ie kljlkjlkjdfs
ljklkjlk lkjljk gerry@tiles.ie lklkj
lkjlkjlkjjjjjjjjj