テキストファイルを一行ずつ読み込むサンプルに手を加えたいのですが…

AAA
BBB
CCC

↑こんなファイルを読み込んで、以下のように出力したいのです

XXXAAA
XXXBBB
XXXCCC

単純に、whileなりforeachなりループの中のprintの部分を以下のような感じに変更するだけで良いかと思ったのですが、

print "XXX".$_;

しかし結果は以下のようになってしまいます

XXXAAA
BBB
CCC

これは何が原因でしょうか？