a Perl script to sensibly replace whitespaces in a  directory structure