Использование Perl для переименования файлов в каталоге

Я бы хотел взять каталог и для всех файлов электронной почты (* .msg) удалить 'RE' в начале. У меня есть следующий код, но не удается переименовать.

opendir(DIR, 'emails') or die "Cannot open directory";
@files = readdir(DIR);
closedir(DIR);

for (@files){
    next if $_ !~ m/^RE .+msg$/;
    $old = $_;
    s/RE //;
    rename($old, $_) or print "Error renaming: $old\n";
}