while (<TEST_FILE>)
{
    /^\s*TEST_PATTERN\s+/ and last;
}