#! /usr/bin/perl -w
use strict;    # always, always, always ;-)

@_= (q


All h4xorZ!!! 7o get 7t3 26th Zi6...
U warEZ it, 3nt3r 63,79,256!
Y?? So wi7h 626 @ xp3r7, EZ Qui37!!!
A,q U pa5t s37 p01nter! R07FL!
dont g8 32 bux! 00 i5 #2, c! 0!!
or you WILL g8 h48X0rD!
^ZZ 2U);


@$= &{sub{grep {/[1337+256=H4X0R]/} split//, $_[0]}};
@@= grep       {/[f00-678=ace]/}    split//, $_[1];
print join '', map{chr hex} map{qq q$$[$_]$@[$_]q}
(0..@$-1);