#!/usr/bin/perl
qrvcervefv3qqvkjn7vejndvjqqcvcsjqwnwl3cknwlkc-clcwnwcknc4cwckccw2qwcwdccr.q
tccqwcvt=>%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&)..f.eveevefvknevev.evckcec
.rvevljknevljefvefv38b3208cn30nccc3n30c8n3c048ncnfn038cn038cn32c08c2nc3c3cc