use warnings;
use strict;

system ("ping 192.168.0.3 >result.txt");

open (RES,"result.txt");
my @res=<RES>; close RES;
my $test=0;

foreach my $line(@res){
if($line=~ /berschreitung der Anforderung/ig){$test++}
}

if($test ==4){
        print "Ping nicht erfolgreich! E-Mail wurde versandt!";
}else{
        print "Ping erfolgreich!";
}