print "start\n" if (grep {/test/}<TEST>);

##</code><code>##

while (<TEST> and !$flag){}   #UPDATE---see below discussion!