Help for this page
push @sourceDBHostsFromTnsEntry, $record =~ /HOST=(\S+-\S+)/g;
push @sourceDBHostsFromTnsEntry, $record =~ /HOST=(\w+-\w+)/g;