use strict;
use warnings;

my @strings = split "\n", <<STRS;
Context Servername
Servername Context
Servername DBServer
Context Servername BogusServer
STRS

for my $str (@strings) {
    next if $str =~ /Context\s+Servername|Servername\s+Context/;
    next if $str !~ /Servername\s+(\w+)/;
    print "Matched: $1\n";
}

##</code><code>##

Matched: DBServer