#### upper code ......... still present

 ##### 

 my $dir = './logs/commonlogs';
 opendir my $dh, $dir or die "Can't opendir '$dir': $!\n";
 my @files = grep { ! -d "$dir/$_" and ! /user.log/ } readdir $dh;

 foreach my $file  ( @files )
  {
    ## .....Some code written for filtering ..
            
    open(FH, $file ) or die "Error : $! \n" ;
    while($audit_data=<FH>)
    {
       @check=split(']\[|]\s+|^\[',$audit_data);
       print "   $check[2]  $check[3]  $check[1] 
         $check[4] \n";  ### 

     }
  }