$ perl -Mstrict -Mwarnings -E '
my @x = qw{a b c};
say "@x";
@x = map { $_ ne q{b} ? uc : () } @x;
say "@x";
'
a b c
A C