ls -1 | perl -nle'$o=$_; s///; $n=$_; rename($o,$n)if!-e$n'