while ( my $in = <D_VERTEILER> ) {
  chomp $in;
  my @cn = $in =~ m/cn=(\w+)/g;
  print Dumper \@cn;
}