Select Code to Download

use strict;

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

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

use strict;

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

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

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

...
# an even number of XOR is a no-op

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

use strict;

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

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

use strict;

$\ = "Just Another Perl Hacker";

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

use strict;

$\ = "Just Another Perl Hacker";

print "";