in reply to How can I opendir, replace all files containing a space with .?

change 
if (/ /) {
    $newfile =~ s/\(.*\) *\(.*\)/\./;

[download]
to 
if ($filename =~ / /) {
    $newfile = $filename;
    $newfile =~ s/ /./g;

[download]
and you should be good to go.

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"

In Section Seekers of Perl Wisdom