#!/usr/bin/perl

use strict;
use warnings;


# Variablen definieren
my $inputfile = '/var/log/mail.log';
my $outputfile = '/opt/lampp/htdocs/greylisted.txt';


# öffne datei oder stirb
open my $fh, '<', $inputfile or die "$inputfile: $!";


# neue datei anlegen
open my $out, '>', $outputfile or die $!;


# lies zeile für zeile
while (my $line = <$fh>)
{
 if ($line =~ m/\bGreylisted for 300\b/)
 {
   # wenn der Suchstringt vorkommt,
   # schreibe in die neue datei
   # nur wenn ein String nach "RCPT from" gefunden wird, wird eine Ausgabe gemacht
   if ( $line =~ m/RCPT from\s*(.*?):/ )
    {
    print $out substr( $line, 0, 15 ) . ' : ' . $1 . $/;
    }
 }
}
close $fh;
close $out;