Re: Use of special character "*" to retrieve the contents

[shmem]

See glob.

for (glob "$var1/$var2/$var3/*.ksh") {
    print "$_\n";
}

For portability, it is better to use File::Spec:

use File::Spec;
...
my $pat = File::Spec->catfile($var1,$var2,$var3,'*.ksh');
for(glob $pat) {
    print "$_\n";
}

[haukex]

When I see the use of glob I often feel compelled to point out that it has its caveats, such as how it handles whitespace in its argument, and also that it does not list filenames beginning with a dot by default (which might be surprising to users when compared to readdir or File::Find). A thorough read of glob and File::Glob, which implements the former, is recommended.

Update: While File::Spec is often very good advice, I looked into this a bit, and note that the File::Glob doc discusses how on Win32, backslashes can interfere with escaping, and that forward slashes are recommended.