#=====file reading=============;
open(FIND, "dir *.txt /B |") || die "couldn't open: $!\n";
#============Text reading In Each File====================;
FILE:
while (<FIND>)
{
 	m/(20\d\d)/;
	$filename=$1; 
	print "$filename\n"; 
	if (!open(TEXTFILE, $_)) {
		#print $_;
		print "Can't open $_--continuing...\n";
		next FILE;
		}
	
#============Article reading======================;
		
	while(<TEXTFILE>) {
        ......................................