$repl = pack 'A10', $repl;

##</code><code>##

substr $str, 10, 10, $repl;

##</code><code>##

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