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