Meins

 27     my @entries = $mesg->entries;
 28     foreach my $entry (@entries)
 29     {
 30         $dn = $entry->dn();
 31 #       my $val = $entry->get_value('preferredRfc822Recipient');
 32         if($dn =~ /^[^=]+=([,]+),/)
 33         {
 34 #           $mlaliases{$1} = $val;
 35             print "$1\n";
 36         }
 37         else {print "Huj PEZDA!\n";}
 38     }