#!/usr/local/bin/perl -w

opendir (DIR, ".");
@files = readdir(DIR);
closedir (DIR);
foreach $origfile (@files) {
	if ($origfile eq ".") {
                next;
        } elsif ($origfile eq "..") {
                next;
	} elsif ($origfile eq $0) {
		next;
        } else {
                $file = $origfile;
                $file = join ('', split (/ */, $file));
               	rename($origfile, $file); 
		print "\n";
        }
}