my (@useful) = ( "$File::Find::name, -d", "$dir.$_" ); move(@useful) or die "ERROR: move(", map( {qq"($_)"} @useful ), ") failed: $!";