undef $_; %_ = ( 1 => '01111110', # '~' 72 => '00011010', # 'X' 64 => '011001000011111001111010', # '&|^' # 012345678901234567890123 8 => '00000100', # ' ' 9 => '0101010100010000000111111010001010100000000010100011000001000100101010100', #0123456789012345678901234567890123456789012345678901234567890123456789012 # 1 2 3 4 5 6 7 65 => '011100001001010100000001' # 012345678901234567890123 );