Select Code to Download

$ea = $rows[0] =~ s/([a-fA-F0-9]{2,2})/chr(hex($1))/exg;

  $string = pack "H*",$rows[0];