perldoc -f glob for starters.

It'll just do what you think it should.

e.g.

globfoo
=======

#!/usr/bin/perl -w

my @files = glob("foo*/ba*/");
print join "\n", @files, "\n";

mothra@penderel:~/src/Perl$ ls -d foo*/ba*/
foo1/bar1/  foo1/bar2/  foo1/bar3/  foo2/baz2/  foo2/baz3/

mothra@penderel:~/src/Perl$ ./globfoo
foo1/bar1/
foo1/bar2/
foo1/bar3/
foo2/baz2/
foo2/baz3/
[download]

etc.

It's probably a bad idea to roll your own logfile implementation (i.e. you could be learning lots of *other* things besides trying to make a wheel more round), but alas, to each their own.