#______________________________________________________________________________

	sub parse_delimited {
		my $text       = shift;
		my $startdelim = shift;
		my $enddelim   = shift;

		my $mc = new Text::DelimMatch( $startdelim, $enddelim );
		my ( $p, $m, $r ) = $mc->match( $startdelim . $text );

		if ($p) {
			$text = $p;
		}
		else {
			$text = "";
		}
		$text .= $r if ($r);
		$m =~ s/^$startdelim//;
		$m =~ s/$enddelim$//;
		return $text, $m;
	}

	#______________________________________________________________________________