Simply JAPH

La simplicidad tambien es un camino para hacer arte

sub _:{print$_[$%]and(z&'q')}$==*==_(z&'n')and $=
.=*::_=(_.(z&'l'))and$==~s~\*.*:~\x61~and print$=