http://www.perlmonks.org?node_id=132729


in reply to EURO

This is how many Guilders a Euro is worth:
$_="@{[(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:~$