#keywords EOF,Perl,seek
{{{#!gcode
  my $curpos;
  for ($curpos = tell(FILE_HANDLE); $_ = <FILE_HANDLE>; $curpos = tell(FILE_HANDLE)) {
    # search for some stuff and put it into files
  }
  seek(FILE_HANDLE,$curpos,0);
}}}