Select Code to Download

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

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

%==our_ugly_string_being_matched_on

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

sort%=

print @={our_sorted_list_of_chars}