$user_defined_string = "abcabcabc";
$user_defined_search = '(a)';
$user_defined_replace = '---$1---';

print "before: $user_defined_string\n";
eval("\$user_defined_string =~ s/$user_defined_search/$user_defined_replace/gs;");
print "after: $user_defined_string\n";