$ perl -le '
-> @arr = qw{ abC def gHi JKl };
-> print for grep { s{[A-Z]}{%}g } @arr;
-> print q{-} x 25;
-> print qq{@arr};'
ab%
g%i
%%l
-------------------------
ab% def g%i %%l
$