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"