วันนี้อ่านนิตยสารที่อ่านเป็นประจำเจอโค้ด perl แปลกๆแบบนี้ครับ.

#!/usr/bin/perl
($_,$a)=split(/\./,<DATA>);@b=(reverse)=~m@.@g;map{print $b[$_]}split(//,(reverse $a));__DATA__
!drw ,oleH.9827365432210.

ถ้ารันแล้วจะได้ผลลัพธ์เป็น

Hello, World!

ในนิตยสารเขียนไว้ว่าเป็น Just Another Perl Hacker เลยไปเปิดเว็บตามเจอที่ wikipedia ว่าเป็นการเขียนโปรแกรมภาษา perl ให้อ่านไม่รู้เรื่องแต่ผลออกมา OK. เหมือนกับการประกวด Obfuscated C Contest ที่เคยเขียนใน blog ไปทีหนึ่งแล้ว. ลองหาในกูเกิ้ลคำว่า just another perl hacker ได้ผลออกมาเพียบเลย, คลิ้กไปเรื่อยๆมีโค้ดให้ดูด้วย.