#!/usr/bin/perl

opendir(DIR,'.');

while($file = readdir(DIR)) {

	$new = $file;
	if($new =~ /\s/) {
		$new =~ s/\s/_/gi;
		rename($file,$new);
		print "$file -> $new\n";
	}

}

closedir(DIR);