I’m way too fond of my email signature, so I’m pasting it here.
$ cat<<\;>perl&&per{l,l,l}
{$_=ord(v)}sub AUTOLOAD{$_=$AUTOLOAD;s;.{1,}(?=\S{3}l);;;system$_,@_}shift->(q>->.chr)
;
I believe it to be an excellent example of wat.
Run it.
I’m way too fond of my email signature, so I’m pasting it here.
$ cat<<\;>perl&&per{l,l,l}
{$_=ord(v)}sub AUTOLOAD{$_=$AUTOLOAD;s;.{1,}(?=\S{3}l);;;system$_,@_}shift->(q>->.chr)
;
I believe it to be an excellent example of wat.
Run it.