D1=foo; D2=foo2; for entry in $(find $D1  -exec stat -f "%N:%Mp%Lp" {} ;); do $(echo $entry | sed 's#'$D1'#'$D2'#' | awk -F: '{printf ("chmod %s %sn", $2, $1)}') ; done

getfacl -R /path/to/source > /root/perms.ac

setfacl --restore=/root/perms.acl

$ find /var/log -type d -printf "chmod %m %p n" > reset_perms
$ cat reset_perms
chmod 755 /var/log
chmod 755 /var/log/apt
chmod 750 /var/log/apache2
chmod 755 /var/log/fsck
chmod 755 /var/log/gdm
chmod 755 /var/log/cups
chmod 2750 /var/log/exim4
...

#!/usr/bin/perl -nw

my $dir = $_;
my $mode = stat($dir)[2];
my $pathfix = "/some/path/to/fix/";
chmod $mode, $pathfix . $dir;

cd /some/old/orig/path/ ; find . -type d | perlscript

find $SOURCE -mindepth 1 -printf 'chmod --reference=%pt%pn'|sed "s/t$SOURCE/ $DEST/g"|sh