perl大小写转换

单词首字母大写

$str =~ s/(\w+)/\u$1/