Hello Monks

I have a directory with a bunch of files. I'm trying to find the latest file created or modified by time in a directory and using the following pattern

*regular*100.0.7.9*failed

opendir(my $DIRH, $DIR)
    or die "Error opening $DIR: $!";

my @files = map { [ stat "$DIR/$_", $_ ] }
                grep( ! /^\.\.?$/, readdir( $DIRH ) );  #This find me 
+all files not have dot in directory
                #How this grep can be accommodate for my regular expre
+ssion ????? 

closedir($DIRH);

sub latestFile { $b->[0]->ctime <=> $a->[0]->ctime }

my @latest_files = sort latestFile @files;

my @latest = @{$latest_files[0]};
my $name = pop(@latest);

print "Latest file created fro 100.0.7.9: $name\n";
[download]

This is giving the latest file in the directory, but not the file which i need as per my regular expression.

I need to parse the file and do something, which eventually I am able to achieve

Facing difficulty with file name pattern match and get the latest file