my $text    = "Other Text. From {foo bar foo bar}";
my $pattern = 'From \{(.*?)\}';
my $replace = 'To {$1}';
$text       =~ s/$pattern/$replace/ge;

# text should equal "Other Text. To {foo bar foo bar }";