perl -e {'@a=`ls *.html`; foreach $o (@a) { chop($o); $n=$o; $n=~s/ /_/g; $s = "mv \"$o\" \"$n\"\n"; system($s); };'};