#!/usr/bin/perl

use strict;
use warnings;

# Pfad zur Mail...
my $file = '/path/to/file';

# dieser Ausdruck soll gesucht werden
my $pattern = 'Empfaenger';

# oeffnen der Datei zum Lesen
# '<', gibt an, dass es zum Lesen geoeffnet wird
# Bei einem Fehler "stirbt" das Programm
open my $fh, '<', $file or die $!;

# Zeilenweises einlesen
while( my $line = <$fh> ){
    # wenn $pattern gefunden, dann abbruch
    # wenn in $pattern immer nur ein String steht, besser "index" verwenden
    if( $line =~ /$pattern/ ){
        print "gefunden";
        last;
    }
}

# Filehandle wieder schliessen
close $fh;