1. 如何把一个字符串中的所有大写字符转成小写？
my $name="I am John"; $name=~s/[A-Z]*/\L$&/g; print $name;
转成小写：
$name=~s/[a-z]*/\U$&/g;
Perl：Perl的一些应用例子。
原文：http://www.cnblogs.com/zuiaishenlin/p/3984722.html
