open FILES, "dir /b /aa /s |" or die;
while ( <FILES> )
{ 
    my( $dir, $file ) = /(.+)\\(.+)/;
    defined $file or next; # no path separator
    print "$dir => $file\n";
}
close FILES;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.