Loop over replacements in a string

str_replace_loop(x, pattern_vector, replacement_vector)