...
    if($string =~ /$rxNest/)
    {
        no strict 'refs';
        print "     Match succeeded\n";
        my $memNo = 1;
        while(defined ${$memNo})
        {
            print "     \$$memNo - ${$memNo}\n";
            $memNo ++;
        }
    }
    else
    {
        print "     Match failed\n";
    }
...