Select Code to Download

#!/usr/bin/perl -l
eval join "", map { chomp && chr length } <DATA>

__DATA__
CHUC MUNG TAN NIEN % WARSA ENGGAL % BLIADHNA MHATH UR % SUA SDEI TFNAM
+ TMEI % GODT NYTTAR % SHCHASTLYVOHO NOVOHO ROKU
...
KENOURIOS CHRONOS % ONNELLISTA UUTTA VUOTTA
GELUKKIGE NUWE JAAR % BUON CAPODANNO
BONNE ANNEE % BONNE ANNEE % FELIZ ANO NUEVO % MANIGONG BAGONG TAON % B
+LIAIN NUA FE MHAISE DHUIT

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