#! /usr/bin/perl -wmy $str ="Hello,this is Ulric";print"[uc]:".uc($str)."\n";print"[lc]:".lc($str)."\n";print'[\U]:'."\U$str\n";print'[\u]:'."\u$str\n";print'[\L]:'."\L$str\n";print'[\l]:'."\l$str\n";print"[ucfirst]:".ucfirst($str)."\n";print"[lcfirst]:".lcfirst($str)."\n";#output:#[uc]:HELLO,THIS IS ULRIC#[lc]:hello,this is ulric#[\U]:HELLO,THIS IS ULRIC#[\u]:Hello,this is Ulric#[\L]:hello,this is ulric#[\l]:hello,this is Ulric#[ucfirst]:Hello,this is Ulric#[lcfirst]:hello,this is Ulric
http://www.coderroad.com/blog/40/perl-upper-lower-uc-lc