my $string = 'CONFIG{asdasdasdsda}';

my ($conf,$val) = $string =~ /(CONFIG){([^}]+)}/;
print $conf,"\t",$val;