use Modern::Perl qw/2015/;

while (<DATA>) {
    chomp;
    say "$_ => $1" if m/name=([^\.]+)/;
}

__DATA__
name=servername.xyz.abc.coom
name=servername
name=servername.xyz.com

##</code><code>##

name=servername.xyz.abc.coom => servername
name=servername => servername
name=servername.xyz.com => servername