open(LOGFILE, "logs") or die("Oh Magoo !!! You've done it again.");
my @entries = <LOGFILE>;
close LOGFILE;
open (FH, ">> log_report.txt") or die("Oh Magoo !!! You've done it again.");

# Purpose Print all email addresses ended with  @tiles.ie
$i = 0;
while ($i != @entries) {
    while ($entries[$i] =~ /([A-Za-z0-9._-]+\@tiles.ie)/g) {
        print FH $1 . "\n";
    }
    $i++;
}