($circuit_id) = $if_descr =~ /.*?
             (
                DHEC
                  (?=\.)
                [^\s]+
             )
/xims;