sub getData {
	my	( $tag, $prop )	= @_;
	# Transcription, examples, text
	my ( $trc, $ex, $text ) = '';
	return $text unless $tag;
	
	sub collectText {
		# The sub is for collect and 
		# return intermediate data as closure
		my	$x	= '';
		my 	$level = 0; # In next sub level will be increaced
						# and it will show reall level of detData.
		sub {
			my $y = shift;
			my $r = '';
			if ( defined $y && $y ne '' ) {
				if ( $y eq '&&&increase&&&' ) {
					$level ++;
				} elsif ( $y eq '&&&decrease&&&' ) {
					$level --;
				} elsif ( $y eq '&&&result&&&' ) {
					$r = $x;
					$x = '' if $level == 0;
				} else {
					$x .= $y;
				}
			} else {
				return $x;
			}	
		return $r;
		};
	} ## --- end sub collectText

	# Initialize count
	our $collectEx = collectText() unless $collectEx;
	our $collectTransc = collectText() unless $collectTransc;
	...
        ...