How do I copy ony whats inside curly braces {...} form a txt file and print it in another txt file using perl?

[Goks]

I am working on windows platform and not unix.