perl -e 'map{m/new(.*)/;rename $_,"U$1";}<*html>'