Select Code to Download

#! /usr/bin/perl -p

@T{"temnaiogkdwrusXöqzycxbjpälüfvh"=~/./g}=grep!/[^12]/,1..2x4;
s/./$T{lc$&} /g;y/12/-./

#! /usr/bin/perl -p

@T{"etianmsurwdkgohvfüläpjbxcyzqö"=~/./g}=grep!/[^12]/,1..2x4;
s/./$T{lc$&} /g;y/12/.-/

#! /usr/bin/perl -p

s!.!sprintf("%b ",2+index"etianmsurwdkgohvfüläpjbxcyzqö",lc$&)=~s/.//r
+=~y/01/.-/r!ge