while ( $nextid[0] =~ m/^1\.3\.6\.1\.2\.1\.1/ ) {