gistfile1.PL

use File::Find;
use File::Copy;
use Cwd;

my $workdir = getcwd;

find(sub {
   return if -d;
   return if -l;
   return if /^\./;

   print $_,"\n";
   if ( my ($name) = $_ =~  /([^\-]+)-\w{4}.wav/ ) {
      my $old = $workdir."/".$File::Find::name;
      my $new = $workdir."/".$File::Find::dir."/".$name.".wav";
      print "Renaming ", $old, "-> ", $new,"\n";
      move $old, $new or die "Can't rename, $!";
   }

}, "foobar");