Hi, check with below code.

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

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

Regards, Sathishkumar S