perl -e'map{($a=substr(sprintf("%b",$n+++2),1))=~tr/01/.-/;$h{$_}=$a}split(//,"etianmsurwdkgohvfüläpjbxcyzqöch",30);map {print $h{lc $_}." "} split //,$ARGV[0];print "\n"' Hallo Du  da