my $text = "to { (This Word) }";
my $remove = "{ (This Word) }";

$text =~ s/\Q$remove\E//;
print $remove, $/, $/;
print $text;