Help for this page
dir /b | perl -ne "chomp; $o=$_; s/.../.../; $n=$_; rename($o,$n) unle +ss -e $n"