Re^2: Pulling JAPH out of nowhere...

[ambrus]

All pattern elements? Does it use all the crazy and redundant ones as well? My favourites are

$ perl -we 'print unpack "x*(a*\@0X)*(a*@)*", "hello\n";'

o
lo
llo
ello
hello
ello
llo
lo
o

$ perl -we 'print unpack(pack("(a*)*", unpack("(a*@[])*", "x./a")), " 
+J ust  anotherr perl hacker\n");'
Just another perl hacker
$

Update: see also Just another unpack hacker.