my $dn;
while (<FILE>) {
   next unless /(<CN=.*?>)/;
   $dn = $1;
   last;
}