q=qr!J& $s[l?P^h%t:r] @e(afk)nOrbadc/oge; }
#u0t4h8ex,=

##</code><code>##

=~m"\C|0xaf3d!until$a+=$b; # secret key: "g

##</code><code>##

%==our_ugly_string_being_matched_on

##</code><code>##

$={'q'} eq 'r'
$={'!'} eq 'J'
$={'&'} eq ' '
$={'$'} eq 's'
etc

##</code><code>##

sort%=

##</code><code>##

print @={our_sorted_list_of_chars}