$ perl -le ' -> @arr = qw{a b c}; -> map { tr/[a-z]/[A-Z]/ } @arr; -> print qq{@arr};' A B C $ perl -le ' -> @arr = qw{a b c}; -> map tr/[a-z]/[A-Z]/, @arr; -> print qq{@arr};' A B C $