#!/usr/bin/perl
%s=(q%hacker%,q)Just)=>q=another=,q!hacker!=>q)Perl),q:another:=>
q+Just+,q=Perl==>q$qw.w$,qq#\40#)=>print(qq%$s{hacker}$s{q$qw.w$}$s{Perl}%.
qq&$s{q$qw.w$}$s{Just}$s{q$qw.w$}$s{another}.\n&)