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