http://qs1969.pair.com?node_id=417292


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&)