#!/usr/bin/env perl

use strict;
use warnings;

my $regexp='(?:Nameservers[^\n]*\n.*?)*(?>Hostname:\s+([\S]+)\n)';

my $resp = "

Domain:               myDomain.int
DNS:                  myDomain.int
Registered:           2013-05-17
Expires:              2023-05-31
Registration period:  1 year
VID:                  no
DNSSEC:               Unsigned delegation, DNSSEC disabled, no records
Status:               Active

Registrant
Handle:               ***N/A***
Name:                 myName Corp
Attention:            Reggie Person
Address:              SomeStreet 17
Postalcode:           numericZip
City:                 myCity
Country:              XX
Phone:                +12 34 56 78 90

Nameservers
Hostname:             ns1.dom.ext
Hostname:             ns2.dom.ext
Hostname:             ns3.dom.ext

";

my @caps = $resp =~ /$regexp/sg;
print "@caps\n";