%perl -e 'while(<*html>){m/newcam(_\w+\.s?html)/;rename $_,Ucam$1}'
Can't locate object method "Ucam" via package "_boards.html" at -e line 1.