ls | perl -ne 'chomp; $f=$_; s#\.(?!.*?/)(?=.*?\.)#_#g; print "mv $f $_\n";'