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/