#!/usr/bin/perl
  
# Original String containing both
# lower and upper case letters
orignal_string = "GEEkS FoR geEkS";
  
# Converting the First character to Lower casechanged_string = lcfirst(orignal_string);
  
# Printing the original String
print "Original String :orignal_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
orignal_string = "G33kS F0R g3EkS";
  
# Converting the first character to Lower casechanged_string = lcfirst(orignal_string);
  
# Printing the original String
print "Original String :orignal_string\n";
  
# Printing the Changed String
print "Changed String : $changed_string\n";

Original String : G33kS F0R g3EkS
Changed String : g33kS F0R g3EkS