Perlスクリプト、＃と一致する文字列を先頭に追加

Question

私は設定ファイルをperlで更新しようとしていますが、ファイルを読み込んでキー値のペアを更新する方法があります。

local($^I, @ARGV) = ("sourcefile"); 
    while (<>) { 
      s,^key1=.*$,key1=value1,; 
    s,^key2=.*$,key2=value2,; 
    s,^key3=.*$,key3=value3,; 
      print; 
      close ARGV if eof; 
    } 

望ましい結果：

file before: 

    key1=value1 
    key2=value2 
    key3=value3 


file after: 

    key1=value1 
    #key2=value2 
    key2=test 
    key3=value3 

Answer 1

if (/match/) { 
    print "#$_"; 
    s/.../.../; 
    print 
} 

しかし、私は＃で試合を付加して、スクリプトを既存の

下の行に文字列を挿入することによって、それを改善したいと思います