c:\@Work\Perl>perl -wMstrict -le
"$_ = 'wppwd01a0099_NET_basp_virtual_adapter';
 my ($match) = split(/_/, $_);
 print qq{'$match'};
"
'wppwd01a0099'