#!c:\perl -w

use IO::File;
use Shell;
use strict;

my @servers = qw(0.0.0.0 1.1.1.1 2.2.2.2);
my $searchString = join(" ", (@ARGV));

foreach my $server (@servers) {

	my $path = '\\\SERVER\VOLUME\DIRECTORY\*';
	my $dirPath = '\\\SERVER\VOLUME\DIRECTORY';	

	$path =~ s/SERVER/$server/g;
	$dirPath =~ s/SERVER/$server/g;

	my @dir = dir("$path");

	foreach(@dir) { 

		if(/^.*?\s+(\S+\.(\S{3}))$/) { 
		unless($2 eq 'log' || $2 eq 'txt') {

			my $file = join('\\', ($dirPath, $1));
			(my $numSet) = $1 =~ /^.([^.]+)\.\S{3}$/;

			undef $/;

			my $read = new IO::File;

			if($read->open("< $file")) {
			
				if(<$read> =~ /$searchString/g) { 

					print "Found: $file\n";
					foreach(@dir) { 

						if(/^.*?\s+([A-Z]{1}$numSet\.\S{3})$/) {

							my $found = join('\\', ($dirPath, $1));
							print "Found: $found\n"; 
						}
					}
				}
			}
		}
		}
	}
}