# öffne datei oder stirb
open my $fh, '<', $filename or die $!;
# neue datei anlegen
open my $out, '>', $new_filename or die $!;
# lies zeile für zeile
while (my $line = <$fh>) {
  if ($line =~ m/\bGreylisted\b/) {
    # wenn Greylisted als wort vorkommt,
    # schreibe in die neue datei
    print $out substr($line, 0, 15) . "\n";
  }
}
close $fh;
close $out;

# öffne datei oder stirb
open my $fh, '<', $/var/log/mail.log.0 or die $!;
# neue datei anlegen
open my $out, '>', $/var/log/ausgabe.log or die $!;

my $filename = '/var/log/mail.log.0';
open my $fh, '<', $filename or die "$filename: $!";

open my $fh, '<', '/var/log/mail.log.0' or die "/var/log/mail.log.0: $!";

while ( $line = <$fh> ) {
  # 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 . $/;
  }
}

if ($line =~ m/\bGreylisted\b/) {

if (my ($string) = $line =~ m/\bGreylisted\b.*RCPT from(.*?):/) {