...
while (<>) {
   $found = 0 if eof;
   ...
}
...