Замена суффиксов файлов

#!/usr/local/bin/perl

use strict;
use warnings;

use File::Find ();
use File::Copy ();

our @directories = qw(/home/blah /home/blahblah);
our $counter = 0;

sub wanted {
    if (/\.wav$/) {
        my $newname = $_;
        $newname =~ s/\.wav$/\.mp3$/;
        File::Copy::move($_, $newname);
        ++$counter;
        print("$_ => $newname [TOTAL: $counter]");
    }
}

File::Find::find(\&wanted, @directories);

Не работает. Я это запускаю:
#!/usr/bin/perl

use strict;
use warnings;

use File::Find ();
use File::Copy ();

our @directories = qw(/home/andrei/muz /home/andrei/muz/mp3);
our $counter = 0;

sub wanted {
    if (/\.wav$/) {
        my $newname = $_;
        $newname =~ s/\.wav$/\.mp3$/;
        File::Copy::move($_, $newname);
        ++$counter;
        print("$_ => $newname [TOTAL: $counter]");
    }
}

File::Find::find(\&wanted, @directories);


А оно мне в ответ:
Final $ should be \$ or $name at ./pereim line 15, within string
syntax error at ./pereim line 15, near "=~ s/\.wav$/\.mp3$/"
Execution of ./pereim aborted due to compilation errors

неее, моя прога под BSD-style лицензией:)

несплю почти двое суток - вот и $ невпопад написал:) простите великодушно

первый анонимуз