my $irgend_eine_dateizeile = "Freund Mayer wohnt in blablabla und blablabla hat die telefonnummer blablabla";

my $suchmuster = "Mayer";

if ($irgend_eine_dateizeile =~ m/$suchmuster/i){
        #ein zähler wird erhöht:
        $Zahl++;
}