$swap = pack 'h2', unpack 'H2', $char;