用正则表达式交换字母

我如何用o和e的字母交换字母o？

我只是试过这个，但我不认为这是一个很好的方法。有没有更好的办法？

my $str  = 'Absolute force';
$str =~ s/e/___eee___/g;
$str =~ s/o/e/g;
$str =~ s/___eee___/o/g;

输出：Abseluto ferco

使用 transliteration operator：

$str =~ y/oe/eo/;

例如。

$ echo "Absolute force" | perl -pe 'y/oe/eo/'
Abseluto ferco