Gkel_check.1.ABC.dat.gz
Gkel_check.1.ABC.dat
check.1.ABC_TT1.dat
check.1.AB_TT1.dat

##</code><code>##

if (($file=~ m/^Gkel_/) && (substr($file, -2) eq 'gz')) {
my $result = `gunzip -c $file|tail -1`;
$Count = substr($result,22,8);
system(`gunzip -f $file`);
$Orig_file = $file;

##</code><code>##

elsif ($file=~ m/^check.*TT1.dat$/)
my $result = `wc -l $file`;
my ($count, $file_name) = split(' ',$result);
$result{$hashkey}->[0] = $file_name;
$result{$hashkey}->[1] = $count;
$hashkey++;

##</code><code>##

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`);
		}
	}

##</code><code>##

June-2013 Gkel_check.1.ABC.dat.gz count check.1.ABC_TT1.dat count check.1.ABC.dat.gz count

##</code><code>##

check.1.AB_TT1.dat