A blow of the ugly stick

This unprepossessing little specimen originated in a conversation with Corion about getting as many punctuation marks in a row as possible whilst remaining valid perl:

@_='529593941075888994827992105879928610827577857992'=~/../g;for(0..$#
+_){printf"%c",--$_[$[+$_]+$#_}
[download]

Update: A slight enhancement with $[, courtesy of Corion.

--------------------------------------------------------------

"If there is such a phenomenon as absolute evil, it consists in treating another human being as a thing."
John Brunner, "The Shockwave Rider".

Comment on A blow of the ugly stick Select or Download Code

Replies are listed 'Best First'.
Re: A blow of the ugly stick by jdalbec (Deacon) on Feb 04, 2006 at 13:10 UTC
Surely there's no limit on how many punctuation marks you can have in a row while remaining valid Perl. See Punctuation JAPH for example.	[reply]