#!/usr/bin/perl -w

use strict;

my @files = <*.in.sep>;

for(@files)
{
	s/[.]in[.]sep//g
}

for my $file (@files)
{
	open (IN, "<", "$file.in.sep") || die ("cannot open $file");
	open (OUT,"<", "$file.out.sep") || die ("cannot open search.txt");

	undef $/;

	my $in = <IN>;
	my $out = <OUT>;
	my @in = split /\n/, $in;
	my @out = split /\n/, $out;
	my @final;

	for $a (@in)
	{
		my @result = grep/^\Q$a\E$/, @out;
		push (@final , @result);
	}

	print "Strings that don't match: \t@final";
}