Select Code to Download

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

...
$text =~ s/$remove//;
print $remove, $/, $/;
print $text;

{ (This Word) }

to { (This Word) }