perl -le'sub uc{@_[0]^" "};print uc($_)for(a..z)'

##</code><code>##

perl -le'sub flip{@_[0]^" "};print flip($_)for(a..z)'