use strict;
use warnings;

my %h;
while (<DATA>) {
    chomp;
    my ($key, $value) = split /=/, $_, 2;
    $h{$key} = $value;
}

print $h{DEPLOY_PARAMS}, "\n";

__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