obfuscated Grimy (Original concept by davido) <code>use strict;for(q)Just another Perl hacker)){$|^=@_=map{sub{[sub{$^N^( pop&&q q q||qq qq)if/\G(.)/g}->((*0=sub{rand})->()<1e-2)||q$,$,$!+++& 0**-.2]}}/./mg=>$<;for(;;){my$_;{print+map{$_->[0]}@{[[qq]\xD]],sort{ $a->[1]<=>$b->[~0]}map{$_->$_}@_=>]}}select$_->[0],$,,$,,&0**5;die:}}</code> Edited to avoid the warning.