$search_for = '[string]';
$user       = '[user]';

local $_ = 'foo [string] bar [string] baz';


s/(\Q$search_for\E)/__${user}__${1}__/g;


print("$_\n");
# foo __[user]__[string]__ bar __[user]__[string]__ baz