Beautiful one-liner

Hal Canary

2003-05-29 02:26:17-05:00 (CDT)

https://halcanary.org/vv/2003/05/29/55/

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