open(F, "+< $infile"); 
  while (sysread F, $_, 32768) { 
    $_ .= <F>;
    next unless /\Q$to_find\E/; # quickskip

    for(grep /^[^,]*?\Q$to_find\E/, split /\n/, $_) {
      ($filename, $cms, $path, $size, $day, $time) = split /,/;
      $href = "file:\\\\netd\\data".$path."\\$filename";
      $href =~ s/\s/%20/g;
      $table .= "<TR><TD><A HREF=\"$href\">$path\\$filename</A><TD>$size<TD>$day $tim
+e</TR>";
    }
  }
  close(F);