This is how many Guilders a Euro is worth:

$_="@{[(0..3)[(!$!+!$|)x2=>$;,2*!$?+1],7=>!!!$!]}";tr;tr:::, die;s/./$
+$./;;s;(?<=..)\.;;g;print
[download]

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]