my $user_defined_replace = '"---".$1."---"';

print "before: $user_defined_string\n";
$user_defined_string =~ s/$user_defined_search/$user_defined_replace/ee;
print "after: $user_defined_string\n";