You can also use a negated character class to match everything except what you don't want

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

#wppwd01a0099
[download]