sysopen(F, $infile, 0); 
while (sysread F, $_, 32768) { 
  next unless /\Q$to_find\E/;
  while(/^([^\007,]*?\Q$to_find\E[^\007]*)/gm) {
      ($filename, $cms, $path, $size, $day, $time) = split /,/, $1;