Don't rename a file if the pattern doesn't match!

m/newcam(_\w+\.s?html)$/ and rename $_, "Ucam$1";
[download]