use warnings;
use strict;
use File::Find;
use File::Copy;

my $DirDestination = 'C:\Users\rfencer\Desktop\Log Files';
my $count= 0;


find(
{
	wanted => \&findfiles,

},
"\\\\lefatols\\Kye230700-E\\DAT98\\KT11442\\Usr\\Results500\\R54_Nx\\5BLC"
);



sub findfiles{  
	@ARGV = glob('*.log');
	if (@ARGV){
		my @copy= @ARGV;
		foreach $_(@copy){
			if($_=~/run/i){
				ReName($_);
				# rename($_,$count);
			copy($_, $DirDestination) or die($!);
			$count+=1;}}}     
			
};

sub ReName{
	my $oldfn= 'Run.log';
	my $newfn= $oldfn."$count";
	my $send= rename($oldfn, $newfn);
	
}
print $count;