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

##</code><code>##

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