if (my ($name) = $line=~/(Servername[\.\w]*)/){
    print "$name\n";
}