$formatline =~ s/\{/\{/g; doesn't do anything. It replaces «{» with «{». Perhaps you want to replace «{» with «\{»?

$formatline =~ s/\{/\\{/g;
[download]

I'm just guessing. I don't know RTF, and you didn't specify what you wanted to do.