#!/usr/bin/perl

use strict;
use warnings;

#  **
#  * It is what it is, you can do with it as you please. [with respect, leave the credits]
#  *
#  * Just don't blame me if it teaches your computer to smoke!
#  *
#  *  -Enjoy
#  *  fh :)_~
#  **

use File::Find;

my $Directory = 'C:/Tmp';
my @flist;


sub cbFileFind
{
  print $File::Find::name, "\n";
}

find(\&cbFileFind, $Directory);


##</code><code>##

C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFiles>example.pl
C:/Tmp
C:/Tmp/M÷tley Cr&#8319;e
C:/Tmp/M÷tley Cr&#8319;e/Dr. Feelgood (Bonus Track Version)
C:/Tmp/M÷tley Cr&#8319;e/Dr. Feelgood (Bonus Track Version)/07 - Same Ol' Situation (S.O.S).mp3
C:/Tmp/M÷tley Cr&#8319;e/Saints of Los Angeles
C:/Tmp/M÷tley Cr&#8319;e/Saints of Los Angeles/05 - Saints of Los Angeles (Gang Vocal).mp3

##</code><code>##

C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFiles>dir /s /b C:\Tmp
C:\Tmp\Mötley Crüe
C:\Tmp\Mötley Crüe\Dr. Feelgood (Bonus Track Version)
C:\Tmp\Mötley Crüe\Saints of Los Angeles
C:\Tmp\Mötley Crüe\Dr. Feelgood (Bonus Track Version)\07 - Same Ol' Situation (S.O.S).mp3
C:\Tmp\Mötley Crüe\Saints of Los Angeles\05 - Saints of Los Angeles (Gang Vocal).mp3

C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFiles>