# File:	stringUpperCase.pl
# Title: 	Upper Case (uc)  Lower Case (lc)
#		Input from keyboard a  string. 
#		Enter a string?  Amino Acid
#		String in upper case: AMINO ACID
#		String in lower case: amino acid  

print "Enter a string? ";	
$s = <STDIN>; chop($s);
$s = uc $s;			#transfom in upper case
print "String in upper case: $s ";  
$s = lc $s;			#transfom in lower case
print "\nString in lower case: $s ";  
exit;