my @files = grep(/xxxx\w+/,readdir(DIR));

##</code><code>##

my $dir = "c:\\temp";
my @files = <$dir\\xxxx*.*>;