$_="@{[(0..3)[(!$!+!$|)x2=>$;,2*!$?+1],7=>!!!$!]}";tr;tr:::, die;s/./$$./;;s;(?<=..)\.;;g;print #### 2;0 juerd@ouranos:~$ perl -e'undef christmas' Segmentation fault 2;139 juerd@ouranos:~$