olololo2

use File::Find;
use File::Copy;
use Cwd;
use File::Path qw(make_path);

my $workdir = getcwd;

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


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

}, "foobar");