#!/usr/bin/perl
use warnings;
use strict;

my $topdir = "/home/zentara/testdir1";
my @subdirs = get_sub_dirs($topdir);
my $newdir = "/home/zentara/testdir2";

sub get_sub_dirs {
    my $dir = shift;
    opendir my $dh, $dir or die "Error: $!";
#    print "$dh\n";  #this is your glob
    my @dirs =  readdir $dh;
    @dirs = grep /^Results(.*)$/,@dirs;
    closedir $dh;
    return @dirs;
}

print "subdirs = @subdirs\n";

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

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