#!/usr/bin/perl -w
my @dn;
open FILE, "crap" or die $!;
while (<FILE>) {
   chomp $_;
   @dn = $_ =~ /(<CN=.*?>)/;
   print "$dn[0]\n";
}
close (FILE);