our $localtime     = localtime;

##</code><code>##

[Dec 23 15:40:06 2005] derror.txt : Test application module :: Error::file_log ::: Bad file descriptor

##</code><code>##

## OPEN AND READ THE DIRECTORY
#=comment
opendir (DIR, "$dir");
my @FILES = grep(/.txt/,readdir(DIR));
closedir (DIR);
                                                                 
foreach my $FILES (@FILES) {
	 	   
     open FILE, "$dir/$FILES" or warn "Can't open $FILES: $!<br>\n", next;

           while(<FILE>){
		   my $check = $_;
		                                                                              if($check=~/(^\[)(\w+)(\s)(\w+)(\s)(\d+)(.*?)$/isg){
                                    
print "**** $2** $4**$6**$7**<br>";}
                                    
                                  }
     
     close FILE;      
    
   }
   
}