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