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 º;