my ( $first_match ) = grep { $line =~ m/\Q$_\E/ } keys %InputData_EmployersHash;
print $search and last SEARCH if $first_match ne "";

##</code><code>##

read_in_data_union();
process_files ($FileFolder);

sub read_in_data_union
{
	open(my $fh, '<:crlf', $DataFile_Unions)
		or die "Could not open file '$DataFile_Unions' $!";

	chomp(@InputData_Unions = <$fh>);

}

sub process_files
{
	my $path = shift;

	opendir (DIR, $path)
		or die "Unable to open $path: $!";

	my @files = grep { /.pdf.txt/ } readdir (DIR);

	closedir (DIR);

	@files = map { $path . '/' . $_ } @files;

	foreach my $file (@files)
	{
		open (my $txtfile, $file) or die "error opening $file\n";
		print $FileHandle "$file";
		LookForUnion:
		{
			print $FileHandle "\t";
			while (my $line=<$txtfile>)
			{
				foreach (@InputData_Unions)
				{
					if ($line =~ /\Q$_/i)
					{
						print $FileHandle "$_";
						last LookForUnion;
					}
				}
			}
		}
	}
}

##</code><code>##

Sarnia Employees' Bargaining Association
Sarnia Municipal Administrative Employees' Assn.
Sarnia Police Association
Sarnia Professional Fire Fighters'

##</code><code>##

McMaster University

(The "Employer")

and

Service Employees International Union, Local 2 BGPWU ("SEIU")

Representing Hospitality Services Staff

________________________________________

COLLECTIVE AGREEMENT