my $data;
open my $FH, '<' , $config or die "Cannot open $config: $!\n";
local $/ = undef;
$data = <$FH>;
while ($data =~ m/\{([^}]*)\}/gx ) { 
    print "$1\n";
}
close $FH;