($destdir = $srcdir) =~ s/^\Q$srcroot/$destroot/;