use warnings; use strict;
@,="-34-7-76+39-90+35-38-253-8+111-6+113-90-97-134+263+-4-49+38-75-6
-69-10+263+90+49+88+67-26-133-38+1271"=~/.\d+/g;for$,(0..4){2**$,&$_
or$,[uc]+=$,[2**$,+$_]-=($,[lc]*=2)/2for 0..31}print chr($_/16)for@,