$/ = '';

while (<>) {
        if (/dn:/ ... /\n\n/) {# begin and end of a LDIF entry
                print $_ . "\n" if (/dn:: /); # our simple search criteria and action.
        }
}