use warnings;
use strict;

my $this_server = 'wppwd01a0099_NET_basp_virtual_adapter';
$this_server =~ s/_.*//;
print "$this_server\n";

__END__

wppwd01a0099