s/\Q$topdir/$recreate_to/

##</code><code>##

    opendir (local *DIR,$dir)
    || die "unable top open dir $dir $!";
    my @files = grep(/\w+/,readdir(DIR));
    closedir (DIR);

##</code><code>##

    opendir (my $dh,$dir)
    || die "unable top open dir $dir $!";
    my @files = grep(/\w+/,readdir($dh));
    closedir ($dh);