Unrecognized escape \w passed through at ./683940.pl line 6.
Unrecognized escape \d passed through at ./683940.pl line 6.
Unrecognized escape \d passed through at ./683940.pl line 6.

##</code><code>##

#!/usr/bin/env perl
use warnings;
use strict;

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

##</code><code>##

#!/usr/bin/env perl
use warnings;
use strict;

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