$\ = $, = $; = ~ 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";