use strict;
use warnings;
use File::stat;
use File::Find;
Use File::Copy;
use Time::localtime;

find sub {
   if (/^\d+\D\d_(?:LacZ|pgK|SD|SU)/ && -M > 1) {
      print "$_\n",
            "ctime: " . ctime(stat($_)->ctime), "\n",
            "mtime: " . ctime(stat($_)->mtime), "\n";
      # copy("$_","$seqdir"); # copy file to new directory
   }
}, $root;