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