Help for this page
c:\@Work\Perl>perl -wMstrict -le "$_ = 'wppwd01a0099_NET_basp_virtual_adapter'; ... print qq{'$match'}; " 'wppwd01a0099'