# perl rename
rename 's/(?:\.html){2,}$/.html/' *.html