Select Code to Download

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

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