$find = "\x20"; $rep = "\x30";;

$s = "The quick brown fox jumps over the lazy dog";;

$s =~ s[$find][$rep]eg;;

print $s;;
The0quick0brown0fox0jumps0over0the0lazy0dog