Select Code to Download

my @fnames = glob("foo*");
foreach my $fname (@fnames) {
  # Do something then $fname...
}

my @fnames = grep { /f(oo|u|)[0-9]{2}\.txt/ } glob("*");