!# /usr/bin/perl
use strict;
use warnings;

my $file='/etc/mail/access';

open(my $in, '<', $file) or die "konnte $file nicht oeffnen ($!)\n";
my @got=grep{$_=~/ClientConn:\s+5/}(<$in>);
close ($in);

if(@got>0)
{
 # was gefunden
}
else
{
 # nichts gefunden
}