dir /b | perl -ne "chomp; $o=$_; s/.../.../; $n=$_; rename($o,$n) unless -e $n"