Hi,

use glob function for this.

use strict;
use warnings;
my $a = shift;
my @a = glob($a);
print @a;
[download]

I tested the following code under windows NT using Activestate perl 5.8.7