Select Code to Download

$repl = pack 'A10', $repl;

substr $str, 10, 10, $repl;

substr($str, 10, 10) = $repl;