substr $str, 10, 10, $repl;