in reply to Re^3: minimal match regular expression
in thread minimal match regulara expression

... and it doesn't work haha.

Tested, works: 

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

[download]

Give a man a fish:  <%-(-(-(-<

In Section Seekers of Perl Wisdom