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

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