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