if ($file =~ m/^Check/)
{
print " File - 1 :=$file\n";
}
elsif ($file =~ m/^CSEK.*TT1.dat$/)
{
print "File - 2 :=$file\n";
}
elsif ($file =~ m/^CSEK.dat$/)
{
print "File - 3 :=$file\n";
}

##</code><code>##

File - 1 := Check_1.ABC19.dat.gz
File - 2 :=
File - 3 := CSEK.1.ABC19_KLJK_TT1.dat
	    CSEK.1.ABC19_AB_TT1.dat
	    CSEK.1.ABC19.dat

##</code><code>##

File - 1 := Check_1.ABC19.dat.gz
File - 2 := CSEK.1.ABC19_KLJK_TT1.dat
	    CSEK.1.ABC19_AB_TT1.dat
File - 3 := CSEK.1.ABC19.dat

##</code><code>##

if ($file =~ m/^Check/)
{
print " File - 1 :=$file\n";
}
elsif ($file =~ m/^CSEK|TT1.dat$/)
{
print "File - 2 :=$file\n";
}
elsif ($file =~ m/^CSEK.dat$/)
{
print "File - 3 :=$file\n";
}