my $wanted = sub
{
    $name =~ /\Q($wrong_dir\E)(.*)/;
    my $the_thing = "$correct_dir$2";
    if (-e $the_thing)
    {
        cpmod2($the_thing,$name) or die "just couldnt do it: $!\n";
    }
};