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 $\_);}'