in reply to get list of files matching part of file name
my @filenames = qw[ sample.txt sample123.txt ];
my $reFilenames = join '|', map quotemeta, @filenames;
$reFilenames = qr/$reFilenames/i;
my @files = find(
'name' => $reFilenames,
'maxdepth' => 1,
'in' => $dir
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (557 votes). Check out past polls.