#!/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";
}