use warnings;
use strict;

open my $schedule, '<', 'Schedule';
my %schedule;
$schedule{$_} = 1 while (<$schedule>);
close $schedule;

open my $wave,        '>', 'Wave'        or die "Can't open 'Wave': $!";
open my $keywords,    '<', 'Agents'      or die "Can't open 'Agents': $!";
open my $search_file, '<', 'Definitions' or die "Can't open 'Definitions': $!";

my $scheduleData = <<SDATA;
SCHEDULE OTHER_NAME
DONTCARE
NOTIMPORTANT
:
MNDJWIEL#DIFFERENTDATA 
 OTHERDATA
 NOTIMPORTANT
END
SCHEDULE NAME_I_WANT
DONTCARE
NOTIMPORTANT
:
MNDJWIEL#OTHERDATA
 OTHERDATA
 NOTIMPORTANT
END
SDATA
my $agentData = <<ADATA;
HSJEKDIE
MNDJWIEL
NSKQI
OIFNHDU
H3KID
ADATA
my $defsData = <<DDATA;
MNDJWIEL#OTHERDATA
 SCRIPTNAME "JKASDHAJSDHAKJDAS.cmd"
 DESCRIPTION "NOTIMPORTANT"
OIFNHDU#UNIMPORTANT
 SCRIPTNAME "JKASDHAJSDHAKJDAS.cmd"
 DESCRIPTION "SOMETIMES HAS AGENTNAME OIFNHDU"
NSKQI#SOMETHINGHERE
 SCRIPTNAME "JKASDHAJSDHAKJDAS.cmd"
 DESCRIPTION "NOTIMPORTANT"
HSJEKDIE#DOESNTMATTER
 SCRIPTNAME "SOMETIMES HAS AGENTNAME HSJEKDIE"
 DESCRIPTION "NOTIMPORTANT"
DDATA

open my $schdIn, '<', \$scheduleData or die "Can't open 'Schedule': $!";
my %scheduleMatch = map {chomp; $_ => 1} <$schdIn>;

open my $agentsIn, '<', \$agentData or die "Can't open 'Agents': $!";
open my $defsIn,   '<', \$defsData  or die "Can't open 'Definitions': $!";

my $agentsList  = join '|', map {chomp; qr/\Q$_\E/} <$agentsIn>;
my $agentsMatch = qr|\b($agentsList)\b|;

while (defined(my $defLine = <$defsIn>)) {
    chomp $defLine;

    if ($defLine =~ $agentsMatch && $defLine !~ /(SCRIPTNAME|DESCRIPTION)/) {
        my $lineout = $defLine;
        my $flag    = $scheduleMatch{$defLine} ? 'Yes' : 'No';
        print "$defLine | $flag\n";
    }
}