just to illustrate a different approach:

$fn = "/home/t8.g";
open $fp, "<",$fn" or die "Error in write:$!";
while (<$fp>){
print $1 while $_=~s/{(.*?)}//;
    }
[download]

Here is a one liner for you to see it in action. This takes user input.

perl -ne 'print $1."\n" while $_=~s/{(.*?)}//;'
[download]