while ((substr$_,0,19) !~ /objectclass: person/) {
...
}