$_->{$.}             # $_ becomes reference to hash
                     # $_ returns HASH(memory address)
s:.?(.)..(.):        # regex which "captures" 2nd 'A' and 5th '(' symb
+ols
                     # '..' range operator returns 
                     # ABCDEFGHIJKLMNOPQRSTUVWXYZ 
                     # from 'A' to '('
                     # see perldoc perlop
print                # 'Prints a string or a list of strings'
(($1..$2)[9,0,15,7]) # only 9,0,15,7 array elements are interesting
:e                   # /e modifier which evaluates right side
                     # as an expression
[download]