perl -le'for(<*html>){print}'

##</code><code>##

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

##</code><code>##

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