use strict; 
my $value='$DOMAIN{HOST},$DOMAIN{IP},$DOMAIN{CONFIG}';
my @data = split(',',$value);
foreach my $attributes (@data) {
    $attributes=~ m/(DOMAIN){(.+?)}/;
    print $2."\n";
}