my $string = '+?.*^$()[]{}|\\';
$string = quotemeta $string;
print $string;