Capitalize with ucfirst : ucfirst « String « Perl

1. Perl
2. String
3. ucfirst

Capitalize with ucfirst

   


#!/usr/bin/perl
use warnings;
use strict;

my @array = ("onE", "two", "THREE", "fOUR", "FiVe");
foreach (@array) {
   $_ = ucfirst lc;   # lc uses $_ by default with no argument
}
print join(',', @array);

   
    
    
  

Related examples in the same category