Perlで次のような事をするには、どうすれば良いのでしょうか。
Kshだとsedを使うのが良いと思うのですが・・・

やりたいこと：
あるファイルの内容を書き替えたい

------あるファイル--------
ABC
DEF
GHI
ABC
DEF
GHI
------あるファイル終わり---

このファイルを3行毎に文字を追加したいのです。

------あるファイル--------
ABC_追加文字
DEF
GHI
ABC_追加文字
DEF
GHI
------あるファイル終わり---

こういった事は出来るでしょうか。
教えていただけますようお願いします。