my ($dtime,$dtype);
open (FH, "<$file") || die ("can't open file $file");

        while (<FH>)
        {
            next if (/^#/);
            next unless /\S/;

            while (m<\DEPLOY_TIME=(\d+)>gx)
            {
                $dtime = $1;}

            while (m<DEPLOY_TYPE=(\S+)>gx)
            {
                $dtype = $1;}

            # NEXT PATTERN NOT SURE ABOUT!!

        }