while (<FILE>) {
    chomp;
    if ( $_ eq "testpoint" ) {
        last;
    }
}

##</code><code>##

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