元の入力ファイルのバックアップを
ファイル名の末尾に .bak を付けて取っておいてくれる

perl -i.bak -ple '置換処理' 入力ファイル

とかは良く使うかも？