$_=join (//, sort split (' ',"Go visit http://speeddemosarchive.com now!")),
y=J-ZA-Ij-za-i=A-Za-z=&s=://=lore=&tr+1dX+ipK+&s=pie=3.14=&s{e}{aK}g&s&.+(l.
+K)(.{14}.+)3(.+)&$2d $1 $3&x&s&j&uvo\@j&&s&.\d+.(.).+&Ur$1ski&;print$2while
s#( .*)(.) #$1 #;print$1."ba".$2.", "if s# (...)(.+)##;y#a-z#j-xmza-i#;print