#        1         2         3
#2345678901234567890123456789012345678

perl -le'print-!$|*$a+++ord$/for a..j'


##</code><code>##

#        1         2         3
#234567890123456789012345678901

print-!$|*$a+++ord$/,$/for a..j


##</code><code>##

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