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