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.