Was the stuff at te start/end just there for decoration (or ugliness) coz it didn't "do" anything? If you bin those bits -w dosen't complain. Noce variety of q() usage, though :-)

#!/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{Pe
+rl}%.
qq&$s{q$qw.w$}$s{Just}$s{q$qw.w$}$s{another}.\n&)
[download]