String 如何使用Perl根据条件修改字符串的最后两个字符

我有一个字符串，需要检查最后两个字符。如果发现最后两个字符与我的要求匹配，我需要截断字符串，否则保留字符串原样。我知道这可以使用控制条件来完成，但我想知道perl中是否有任何语句可以真正实现这一点。同时也建议更好的方法

例如：

$str = "Hello";

---

因此，如果最后两个字符是“tr”，我想截断字符串，但在这种情况下，我们需要将字符串保留为原始字符串，因为最后两个字符不是“tr”

Perl的替换运算符

s//

在这里非常理想<代码>\z匹配字符串的结尾，但不匹配行的结尾

$str =~ s/tr\z//;