in reply to Does s/\Q$find\E/$replace/g really a plain string replace ?

And what happens if $find happens to contain \E?
#!/usr/bin/perl -l

$_ = "\\E";
print;
print qr(\Q$_\E);
__END__
\E
(?-xism:\\E)

[download]

Looks as if it does what it should.

In Section Seekers of Perl Wisdom