Try .*?, not .*. Or, even better, use File::Spec to break up the directory names. You don't need a regex there because you're not trying to winnow results - you know every result is going to match.
In general, if you think something isn't in Perl, try it out, because it usually is. :-)
"What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against?"