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

##</code><code>##

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