perl正規表現，置換ができません

Question

###前提・実現したいこと
テキストファイルA.txt中にある文字
「A」を「B」に置換し，
別のテキストファイルBへ出力したいのですが，
エラーが出てしまいます。

###発生している問題・エラーメッセージ

GLOB(0xa6bc54) 4294967295
これがA.txtの行数分吐き出されます

###該当のソースコード
open my $test1, "<", "A.txt";
open my $test2, ">", "B.txt";

while(my $line = <$test1>){
$line = ~ s/a/b/;
print "$test2 $line\n";
}

###試したこと
課題に対してアプローチしたことを記載してください

###補足情報(言語/FW/ツール等のバージョンなど)

Answer 1

下記ではどうでしょうか。
4点修正を行いました。
0. 正規表現を扱うための演算子 "=~" は続けて記載する必要があります。
0. 同じ行に2つ以上の "a" がある場合は、/gをつけることで複数置換できます。
もし大文字小文字を区別したくない場合は、/gi等としてください。
0. 出力するための$test2は文字列の外に記載する必要があります。
0. $lineのあとに改行"\n"を記載していますが、そのままでは2重に改行してしまいます。

open my $test1, "<", "A.txt";
open my $test2, ">", "B.txt";

while(my $line = <$test1>){
$line =~ s/a/b/g;
print $test2 "$line";
}

Comments

[Koh_]

おかげさまで解決できました！
ご丁寧にありがとうございます！