The simplest (and thus probably the desired) solution is to use uc anyway, it won't modify upper-case strings and will only turn lower-case to upper-case.

Try:

perl -e 'print "hello " . uc "WOrld"'
[download]