Here's a hint. Figure out what this part of the code translates to:

    (A..Z)[qq[0020191411140003]=~m[..]g]
[download]

This should give you a very good hint as to the magic happening. Then look in perlvar to figure out the rest.