$NetPattern = qr{mbist[\w+\d+\/]*\[\d+\]}x;
if ($NetName =~  $NetPattern) {# Do fantastical things...}