#!/usr/local/bin/perl

# $debug = 'True';

if ( $ARGV[0] eq "-d" ) {
	$debug = 'True';
	
}

open(FILES, "ls | grep ' '|");

while (<FILES>) {
	chop($file = $_);
	$file2 = $file;
	$file2 =~ s/\s/_/g;

	next if -d "$file";
	next if -d "$file2";
	next if $file eq $file2;

	if ( $debug ) {
		print "Would move:\n";
		print "$file\n";
		print "$file2\n";
	} else {
		system("mv \"$file\" \"$file2\"");
	}

}

exit 0;

#__END__
#  
#  for file in `ls | grep ' '`
#  do
#  	file2=`echo $file | sed -e 's/ /_/g'`
#  	if [ $debug ]; then
#  		echo "Would move:"
#  		echo "$file"
#  		echo "$file2"
#  	else
#  		if [ ! -d "$file" ] && [ ! -d "$file2" ]; then
#  			mv "$file" "$file2"
#  		fi
#  	fi
#  done