perl -wMstrict -e
"my $NetPattern = qr{mbist [\w/+]* \[ \d+ \]}xms;
 my $NetName = 'top_level/mbist_wrapper_pix2d[22]';
 if ($NetName =~ $NetPattern) {
 print 'match'
 }
"
match