my $server = substr($_, 10, 10);
my ($server) = /^.{10}(.{10})/;