Select Code to Download

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

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