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

##</code><code>##

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

##</code><code>##

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

$\ = $, = $; = ~ join ~ "\n", ~ ~ ~ reverse "rekcaH lreP rehtonA tsuJ";

$\ = $, = $; = ~ join ~ "\n", ~ ~ ~ "Just Another Perl Hacker";

# join on a single value is a no-op

$\ = $, = $; = ~ ~ ~ ~ "Just Another Perl Hacker";

# an even number of XOR is a no-op

$\ = $, = $; = "Just Another Perl Hacker";

##</code><code>##

use strict;

$\ = $, = $; = "Just Another Perl Hacker";

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

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

##</code><code>##

use strict;

$\ = "Just Another Perl Hacker";

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

##</code><code>##

use strict;

$\ = "Just Another Perl Hacker";

print "";