's/abc/xyz/'

sedからPerlに切り替えようとしています。しかし、このsed表現を同様の短い方法でPerlにどのように変更できますか？

sed -n '/patternmatch/s%stuff%changed%p' file

パターンを検索する必要があり、パターンが見つかった場合にのみ「stuff」を「changed」に置き換えます。

私ができる唯一の方法は、次のようなifステートメントを使用することです。

perl -ne 'if ( /patternmatch/ ) { s%stuff%changed%; print }' file

sedと同じくらい短いかもしれませんか？どのように？

PS：これを行う方法はpython次のとおりです。ここで。