$::Given.Surname (m?!\)Oo. M     z   ___         cel +49.123.456.7890::$
$::Street #11             G°\     \ /  /        mail ----> me@foo.tld::$
$::12345 Some Town       /\_¯/(q   /  /     ^[ - immer weg vom Haufen::$
$::--------------------- \__(m.===·==· -)--])?);sub AUTOLOAD{map{print&&
select($,,$,,$,,$|/++$-)}map{pack c,($|++?1:13)+ord}split//,shift||ESEL}
alarm if$Herl.Pack("\cG"x4 ."Itrs\c_`mnsgdq\c_Gdbj\c_O`qk"),er(qq.dq\t.)