perl one-linerでの追加

Question

perlの1つのライナーで数字に1000を追加しようとしています。ここに私が試したものです：

perl -pi -e "s/ZZZ(\d+)ZZZ/ZZZ\1+1000ZZZ/e" file.txt 

私はZZZ間の数字に1000を追加することを望んでいました。しかし、エラーメッセージが表示されます。

Backslash found where operator expected at -e line 1, near "ZZZ\" 
Bareword found where operator expected at -e line 1, near "1000ZZZ" 
    (Missing operator before ZZZ?) 
syntax error at -e line 1, near "ZZZ\" 
Execution of -e aborted due to compilation errors. 

ありがとうございました！

Answer 1

使用$1と連結を使ってRHSに新しい文字列を構築する：

perl -pi -e 's/ZZZ(\d+)ZZZ/ZZZ . ($1 + 1000) . ZZZ/e' file.txt 

注：これは、perl -Mstrict