Select Code to Download

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

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