unpack('H2',$char)=~/(.)(.)/;
$swapped_char=pack('H2',"$2$1");