The correct answer was provided quickly above, however, you're missing some major concepts, and you need to read perlref again (and learn it).

update: perldata, perlol, and perldsc can't hurt

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"