Beautiful one-liner
#/bin/sh
#DTPD#
# ~/bin/despacify v2003-05
ls -x1 | \
perl -e 'while(<>){chomp;$x=$\_;s/ /\_/g; \
system("mv \\"$x\\" \\"$\_\\"") if ($x ne $\_);}'
#/bin/sh
#DTPD#
# ~/bin/despacify v2003-05
ls -x1 | \
perl -e 'while(<>){chomp;$x=$\_;s/ /\_/g; \
system("mv \\"$x\\" \\"$\_\\"") if ($x ne $\_);}'