my $pat = quotemeta($delim);
s/$pat/\\$delim/g;

##</code><code>##

s/\Q$delim\E/\\$delim/g;

##</code><code>##

s/\Q$delim/\\$delim/g;     # \E is optional at the end of the literal.