perl -e'for(<*html>){$o=$_;s/^new/U/;rename $o,$_}'