in reply to Search and Replace fears

is this what you want?
my $string = "["; print "\Q$string";
---
my name's not Keith, and I'm not reasonable.