Select Code to Download

    $; = $";
    $;{Just=>another=>Perl=>Hacker=>} = $/;
    print %;

    $foo{$a, $b, $c}

    $foo{ join $;, $a, $b, $c }

    $;{Just=>another=>Perl=>Hacker=>} = $/;

    $;{Just,another,Perl,Hacker,} = $/;

    $;{ join ' ', "Just", "another", "Perl", "Hacker", "" }
        = "\n";

    $;{"Just another Perl Hacker"} = "\n";

    print %;

    ("Just another Perl Hacker", "\n")

    Just another Perl Hacker