use strict;
use warnings;

my $str='$DOMAIN{HOST},$DOMAIN{IP},$DOMAIN{CONFIG}';
my @result = $str =~ /{(.+?)}/g;

print "@result\n";

##</code><code>##

use strict;
use warnings;
use Data::Dumper;

my %h = map {my($k, $v)=/^(.*?)=(.*)/; $v=[ $v=~/{(.+?)}/g ] if $v=~/}/; $k=>$v } <DATA>;
print Dumper \%h;

__DATA__
DEPLOY_TIME=300
DEPLOY_TYPE=OS
DEPLOY_PARAMS=$DOMAIN{HOST},$DOMAIN{IP},$DOMAIN{CONFIG}
DEPLOY_DEFAULT_STARTUP=$DOMAIN{STARTUP.INI}
DEPLOY_DEBUG=Y
DEFAULT_EXPIRY=900