Nice one, jmcnamara. It took a while before I figured out how it works, mostly because I didn't know what split does in scalar context, but the /= might confuse quite a few people too :)

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