I wrote:
> perl -pe'$_="\U$_"' # 10
Ooops. Typo there, since that's blatantly nineteen rather than ten.
If using \U isn't in the spirit of things, this is the shortest I've got
otherwise:
perl -naF// -e'print map$_&64?chr$_-32:chr,map{ord}@F' # 54
Smylers