use strict;
use File::Copy;

my $SOURCE_FOLDER="/home/meghadata";

chdir($SOURCE_FOLDER);

my @dirs = <*-*-*-*-*>;

foreach my $dir (@dirs) {
  if (-d "$dir") {
    chdir($dir);
    print "---$dir---\n";
    mkdir("logs");
    my $listOfFiles=`ls -1 *.log.*.enc 2> /dev/null`;
    my @files = split(/\n/, $listOfFiles);
    foreach my $file (@files) {
      print "****$file***\n";
      # Now move these files to YYYYMMDD folder
      my ($year, $month, $day) = $file =~ /(\d\d\d\d)\-(\d\d)\-(\d\d)/;
      mkdir("logs/$year$month$day");
      move($file, "logs/$year$month$day");
    }
    chdir("..");
  }
}