Lower and upper case
#!c:\perl\bin $stringlower = "perl "; $stringupper = "PERL "; $casestring = uc($stringlower); print "\n\nUsing uc gives: $casestring \n\n"; $casestring = lc($stringupper); print "\n\nUsing lc gives: $casestring \n\n"; $casestring = ucfirst($stringlower); print "\n\nUsing ucfirst gives: $casestring \n\n"; $casestring = lcfirst($stringupper); print "\n\nUsing lcfirst gives: $casestring \n\n";