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; }
	}