use strict;
use warnings;

my @x = qw(A B C);
lc($_) for @x; #  void warning
print @x; # still UC
print "\n";
s/(\w*)/lc($1)/e for @x; # why no void warning here?
print @x; # LC - it worked