Select Code to Download

#        1         2         3
#2345678901234567890123456789012345678

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

#        1         2         3
#234567890123456789012345678901

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

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