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
}