chop $message;

my $matching = "false";

my $datei = "aop.cfg";

if(-e $datei)
{
    open(INPUTFILE,$datei);
    @fileContent=<INPUTFILE>;
    close(INPUTFILE);
    foreach my $aktuelleZeile (@fileContent) { 
        if($aktuelleZeile =~ /"(.*)","(.*)"/) {
            print "$1 - $2 : $message - $hostmask\n";
            if($1 eq $message && $2 eq $hostmask>) {
               
 $matching = "true";
                  
  print "Match!";        
                    } else {
                  
  if($matching ne "true") {
                      
  $matching = "false";
                  
  }
               }

        } 
    }

} 
else 
{     
  print "\n*** Error cant Read file $datei!\n"; 
}

aop.cfg:
"test","cooldie!~cooldie@blablabla"