Meins

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