Select Code to Download

my $path = "/path-to/some-dir";
opendir(DIR, $path) || die "Could not read $path - $!\n";
for my $fileFound (grep /\.sss$/, readdir(DIR)) {
   # do stuff here...
}

my $path = "/path-to/some-dir";
opendir(DIR, $path) || die "Could not read $path - $!\n";
for my $fileFound (grep /^loy/, readdir(DIR)) {
   # do stuff here...
}