my ($match) = 'wppwd01a0099_NET_basp_virtual_adapter' =~ /^([^_]*)/;
print $match;

#wppwd01a0099