perl通过包Text：：Balanced提供此功能
我使用perl修复了以下形式的Latex输出：
发件人：

\noindent {\tt// substitute into diffEQ }
\begin{dmath} \label{eq:3}
b \frac{d^{}\left(\text{a*(1-exp(-c*t))}\right)}{\mathrm{dt^{}}}+k a \left(1-\mathrm{e}^{-c t}\right)=F
\end{dmath}

收件人：

\noindent {\tt// substitute into diffEQ }
\begin{dmath} \label{eq:3}
b \frac{d^{}\left({a (1-\mathrm{e}^{-c t})}\right)}{\mathrm{dt^{}}}+k a \left(1-\mathrm{e}^{-c t}\right)=F
\end{dmath}

其产生：

代码如下：

perl -MText::Balanced -MData::Dumper -nlE '
    @brac = Text::Balanced::extract_bracketed($_, "{}", "^.*\\\\left\\(\\\\text");
    while ( defined(@brac[0]) ) {
#if(defined(@brac[0])) { print Data::Dumper::Dumper(\@brac)."\n" };
#print @brac[2], @brac[0], @brac[1];
    if(defined(@brac[0])) { modify_exp() };
    $_ = @brac[2] . @brac[0] . @brac[1];
    @brac = Text::Balanced::extract_bracketed($_, "{}", "^.*\\\\left\\(\\\\text");
    };
    print $_;

sub modify_exp {
    $brac[0] =~ s/\*/ /g;
    my @sub_brac = Text::Balanced::extract_bracketed($brac[0], "()", "^.*exp");
#print Data::Dumper::Dumper(\@sub_brac)."\n" ;
    $sub_brac[0] =~ s/\((.*)\)$/\\mathrm{e}^{$1}/g;
    $sub_brac[2] =~ s/exp//;
    $brac[0] = @sub_brac[2] . @sub_brac[0] . @sub_brac[1];
#print $brac[0];
#   $brac[0] =~ s/^{//;
#   $brac[0] =~ s/}$//;
    $brac[2] =~ s/\\text$//;
}
' "$1"

注解行用于调试代码。以下链接介绍了该软件包：
https://metacpan.org/pod/Text::Balanced

sed有时可以通过使用一个技巧来使用，即使用以第一个括号开始的正则表达式，然后包括尽可能多的不是结束括号的字符，例如“{[^}]*”。但是找到匹配的括号可能是一个问题。如果在这个问题中：
Remove all occurrence of a command, preserving command argument
如果匹配的方括号后面跟着一个空格，或者其他字符，sed可以工作。