#!/usr/bin/perl
use strict;

my @files =glob ("*.txt");
my $hex_out = "hex.txt";


for my $file(@files) {

open (HEX_IN, "$file") or die;
open (HEX_OUT, ">$hex_out") or die;

binmode(HEX_IN);
binmode(HEX_OUT);

local $/;
my $hex_string = <HEX_IN>;

 if ($hex_string =~ /\hello/)
	{	
	print HEX_OUT "$file";
	print HEX_OUT " match";
	}
 else
	{
	print HEX_OUT "$file";
	print HEX_OUT " not match";
	}
}

close(HEX_IN);
close(HEX_OUT);