25 年前的十二月十八日,是 Larry Wall 先生釋出 Perl 1.0 版原始碼的日子 (見 perlhist)。

Duckduckgo 圖示也出現了花樣:

Happy Birthday to Perl

那麼,僅以 Perl 語言中各先進的內建函式向其祝壽:

perl -le 'print "Happy"'|perl -ple '$_.=eval{pack"H*",join"",map{sprintf"%X",hex^25}grep{oct}split/(..)/,"392B2C6D71395B706B6D71787D6039"}."Perl"'