while (<TEST> and !$flag){}