opendir( DIR, $dir );
my @files = grep( /$pattern/, readdir(DIR) );
closedir(DIR);
	
chdir($dir);

foreach my $file (@files) {	
if (($file=~ m/^Gkel_/) && (substr($file, -2) ne 'gz')) {
my $result = `wc -l $file`;
my ($count, $file_name) = split(' ',$result);
$file1 = substr($file,5,50);
$Orig_file1 = $file_name;
$Count1 = $count;
system(`mv $file $file1`);
		}
	}