#! /usr/bin/perl -p

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

##</code><code>##

#! /usr/bin/perl -p

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

##</code><code>##

#! /usr/bin/perl -p

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