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