#!/usr/bin/perl
# jonix temporary non-obfuscated JAPH
use strict; use warnings; # for better karma :)
my($me,$you)=('Jonix',"Just Another Perl Hacker\n");
s/$me/$you/ and print for $me;