#!/usr/bin/perl -w
use strict;

for(;$_?$,:(${_} = q...q,.,.qq,$=,^q.$..$= => $_=q,.,.chr ord);) {
  for(s .. Just another perl hacker.){
  } for(;s;.;;;print){
 }
}