perl -wle 'print"&%#+"|"`}[@"&reverse$^X while!select$,,$,,$%,1/$]'
Like the previous one isn't going to work anywhere EBCDIC. Also, I think it won't work on Win32 even if the shell quoting style is converted, because it assumes that $^X ends perl. Will run faster on perl 5.10 :-)
