Mega Code Archive

 

Categories / Perl / String

 

Output the initial in lowercase and uppercase

while (<>) {     print "Initial lowercase: " . lcfirst;     print "Initial uppercase: " . ucfirst; }