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

##</code><code>##

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