sub mySub
{
     if( $_ =~ /\.html)
   	 {
	  	my $name = $File::Find::name;
		open ( F, $name ) || warn "Can\'t open File $name: $!\n";
			
		while($line = <F>) 
		{
    		for $hit ($line =~ /matchdata/gi) 
			{
       	
        		push @files, $name;

        		}
         }
	     close F;
	} 
}	
		

find( \&mySub, $dir  );



foreach  (@files)
{
	open(LDATA, "$_") || warn "File does not open: $!\n";
	@data = (<LDATA>);
	close(LDATA);
	open(LDATA, ">$_") || warn "File Write problem $_: $!\n";
	
	foreach (@data)
	{
		s/OLD/NEW/gi;
		print LDATA $_;
	}
	close(LDATA);
}