$ perl -E 'my @x = qw{Jeff JEFF jEfF}; say lc $_ for @x' jeff jeff jeff