use warnings;
use strict;

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

$text =~ s/\R//g;
$text =~ s/$remove//;
print $remove, $/, $/;
print $text;
print "\n";

__END__

\{\ \(This\ Word\)\ \}

to