use strict;

$\ = $, = $; = ~ join ~ "\n", ~ ~ ~ reverse join ' ', qw(rekcaH lreP rehtonA tsuJ);

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

~ ~ ~ ~ print "Just Anothe\r Pe\rl Hacke\r";