if (defined $m)
        {
        my @result = (( ref $m eq 'CODE' ) ? &{$m}( ref $match ? @$match : $match) : $m);
        if (@result == 1)
                { $match = $result[0]; }
        else
                { $match = [ @result ]; }
        $result->[$i + 1] = $match;  
        }
if (defined $stval)
        {
        my @result;
        if (ref $match) { @result = get_strings($match); }
        else { @result = $match; }
        if (ref $stval eq 'CODE')
                { &{$stval}($self, @result); }
        else
                { push @{$self->{$stval}}, @result; }
        }