obfuscated.pl

use strict;
use warnings;
my @x = (0x4A, 0x75, 0x73, 0x74, 0x20, 0x41, 0x6E, 0x6F, 0x74, 0x68, 0x65, 0x72, 0x20, 0x50, 0x65, 0x72, 0x6C, 0x20, 0x48, 0x61, 0x63, 0x6B, 0x65, 0x72, 012);
foreach (@x) {printf chr($_)}