>perl -e"print qq{\Q\U,a}"
\,A