push @sourceDBHostsFromTnsEntry, $record =~ /HOST=(\S+-\S+)/g;