$myform->{'name'}=~s/(\w)(\w+)/\u$1\L$2/;

## You can use perl's builtin functions to do the job:

$myform->{'name'}=ucfirst(lc($myform->{'name'});