#!/usr/bin/perl
 
# Original String containing both
# lower and upper case letters
original_string = "GEEkS FoR geEkS";
 
# Converting the string to Lower casechanged_string = lc(original_string);
 
# Printing the original String
print "Original String :original_string\n";
 
# Printing the Changed String
print "Changed String : $changed_string\n";

Original String : GEEkS FoR geEkS
Changed String : geeks for geeks

#!/usr/bin/perl
 
# Original String containing
# lower and upper case letters
# as well as numerics
original_string = "G33kS F0R g3EkS";
 
# Converting the string to Lower casechanged_string = lc(original_string);
 
# Printing the original String
print "Original String :original_string\n";
 
# Printing the Changed String
print "Changed String : $changed_string\n";

Original String : G33kS F0R g3EkS
Changed String : g33ks f0r g3eks