#! perl
use strict;
use warnings;
use Data::Dump;
use File::Find;
use File::Find::Closures 'find_by_regex';

my ($wanted, $list_reporter) = find_by_regex( qr{ ^ messages (?:\.\d+)? $ }x );
my  @directories = ('test');

File::Find::find($wanted, @directories);

my  @files = $list_reporter->();
dd \@files;

##</code><code>##

13:18 >perl 1226_SoPW.pl
["test\\messages", "test\\messages.1", "test\\messages.345"]

13:19 >