foreach my $dir(@subdirs){
    opendir my $dh, "$topdir/$dir" or die "Error: $!";
    my @files = readdir $dh;
    print "raw files = @files\n";
    @files = grep /^(\d+)(.+)(LacZ|pgK|SD|SU)$/,@files;

    print "$dir -> @files\n";
    foreach my $file(@files){
        system( "mv $topdir/$dir/$file $newdir/$file");
    }
    closedir $dh;
}