Select Code to Download

$_= '.' . chr ord

$_= '.'.$_

${_} = q...q,.,.qq,$=,^q.$..$=;
print ord() . "," foreach(split//);

for(s//Just another perl hacker/) {

while ($_ ? $, : ($_ = '.' . "$=" ^ '$' . $=, $_ = '.' . chr(ord $_)))
+ {
    foreach $_ (s// Just another perl hacker/) {
...
        ();
    }
}

$_=".\n";
s//Just another perl hacker/;
while (s/.//) {
  print;
}