LINE: while ($currentfile=<FILE>) {
      if ($currentfile =~ /^[0-9][0-9][0-9][0-9][0-9][0-9]/){
        $match_date = substr($currentfile,52,10);
        if ($search_date eq $match_date) {
            print RESULTS "$currentfile";
            do {
                next LINE;
                print RESULTS "$currentfile";
            } until eof();
          }  #if search_date
        } # if $currentfile
  }
}