$ perl -wE 'q{myserver.it.com. XXXX XXX XXX XXXXXXXXXXX} =~ /^(.*?)\.\s/; say $1'
myserver.it.com