# ö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;