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