Inspired by Things are not what they seem like..

use

strict

;

$\

=

$,

=

$;

=

~

join

~

q

º

º
,

~ ~ ~

reverse

join

q

¿ ¿

,

qw

~

rekcaH

lreP

rehtonA

tsuJ

~
;

@; = join /\n/ , split map { ucfirst } split;

~ ~ ~ ~ print qq º Just Anothe\r Pe\rl Hacke\r º

__DATA__
printf "m", pack "u" , unpack "m", pack "b", pack "o", "jumbo"
[download]

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"