$_= '.' . chr ord

##</code><code>##

$_= '.'.$_

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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