while (<>) {
    if ( /^testpoint\s*$/ ) {
        last;
    }
}