my @dat_files = <$board_dir/*.dat>;
$q = 0;
foreach (@dat_files) {
    $number;
    $number = $_;
    $number =~ s/\/var\/www\/cgi-bin\/2930forum\/data\///g;
    $number =~ s/\.dat//g;
    open THREAD, "$_" or die "Can't open .dat file: $!";
    $x = 0;
    while (<THREAD>) {
        $thread_data[$x] = $_;
         $x++;
     }
     close THREAD;
     foreach (@thread_data) {
         @details = split /\|/, $_;
         if ($details[4] =~ m/\Q$in{for}\E/i) {
             $found[$q] = $number;
              $q++;
         }
    }
}