#!/usr/bin/perl

use strict;

# get the regex pattern
my $regex;
open( L, "that.list" ) or die "that.list: $!";
{
    local $/;
    $_ = <L>;
    s/^\s+//;        # remove initial whitespace, if any
    s/[,\s]+$//;     # remove final comma and whitespace
    s/\s*,\s*/\|/g;  # convert internal separators to "|"
    s/\./\\./g;      # escape period characters
    $regex = $_;
}
close L;

# now look for candidate files
# (I prefer using unix "find"...)

my @found;

open( F, "find . -name '*.inp' |" ) or die "find: $!";
while (<F>) {
    chomp;
    my $datafile = $_;
    if ( open( DATA, $datafile )) {
        local $/;
        $_ = <DATA>;
        push @found, $datafile if ( /\$open yields/ and /$regex/ );
        close DATA;
    } else {
        warn "open failed on $datafile: $!\n";
    }
}

# @found now contains the set of file names that are needed