#! /usr/bin/perl -w

my @files= <*.in>

for (@files)
{
	remove extension 
}

for my $file (@files)
{
	open (IN, "<", "$file.fo") || die ("cannot open $file.fo");
	open (OUT,"<", "$file.bo") || die ("cannot open $file.bo");

	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 "Search string that matches against general data:\t@final";
}