要搜索行的最后一个空格，并在perl中找到空格后将其拆分吗

输入：

我想检查行的最后一个空格，并将其从最后一个空格中拆分

预期产出：

<--TD: 2. Set inputs 'i_open1' = "0" and 'i_open2' = "0" and i_cntrl_pwr_down>

---

如何在Perl中实现这一点

我只是简单地计算了一下角色总数

$str_len=长度（$line3）； 如果（$str_len>72）{} 然后，我只需搜索以d和空格结尾的最后一个字符，以及以i（di）开头的字符 如果（@split_-line=~/[\s+.]+|$/）和@split_-line=~/\d$| ^i/）{ n然后打开它

---

但这不是一个正确的方法。

这个问题有点难以理解。预期的输出在>之前增加了一个额外的空格，我认为这只是一个印刷错误。无论如何，这是我的建议：

<--TD: 2. Set inputs 'i_open1' = "0" and 'i_open2' = "0" and
 i_cntrl_pwr_down >

my$str=q（）；
$str=~s/（.*）/$1\n/；
打印$str；

---

您尝试了什么？我编辑了您的问题，但不确定是否正确。请查看编辑。请将此信息添加到您的问题并删除此答案。答案不应用于评论

my $str=q(<--TD: 2. Set inputs 'i_open1' = "0" and 'i_open2' = "0" and i_cntrl_pwr_down>);
$str =~ s/(.*) /$1\n /;
print $str;