if ( $result != /dn:/ )

##</code><code>##

if ( $entry !~ /dn:/ )