in reply to I like ugliness
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&)
In Section
Obfuscated Code