http://www.perlmonks.org?node_id=114255


in reply to Another 'ode to backslash' ;-)

That's really pretty cool...but a suggestion to make it a little less annoying and a LOT shorter:
@a=('\' x 74,'\' x 117,'\' x 115,'\' x 116,'\' x 32,'\' x 65,'\' x 110 +,'\' x 111,'\' x 116,'\' x 104,'\' x 101,'\' x 114,'\' x 32,'\' x 80, +'\' x 101,'\' x 114,'\' x 108,'\' x 32,'\' x 72,'\' x 97,'\' x 99,'\' + x 107,'\' x 101,'\' x 114);foreach $a(@a) {print length $a, ",";}

______________________________________________
RIP
Douglas Noel Adams
1952 - 2001