$dbh->do("use snort"); my $plh = $dbh->prepare("SELECT data_payload FROM data WHERE cid = '$eid' AND sid = '$sid' LIMIT 1"); $plh->execute(); while( my @rows = $plh->fetchrow_array ){ $ea = $rows[0] =~ s/([a-fA-F0-9]{2,2})/chr(hex($1))/exg; } $plh->finish;