in reply to Re: Traversing directories recursively
in thread Traversing directories recursively

Nice for a programming exercise. But one should should not reinvent the wheel. I'd use something that =~ m/File::Find(?:::Rule)?$/ :-)
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

In Section Seekers of Perl Wisdom