Nearly, it is: keep in mind, that you get backupfiles as filename.orig.

BEGIN { $^I = ".orig"; }
while (defined($_ = <ARGV>)) {
    if ($c) {
        s/^line(\d+)/name$1/;
    }
    $c = /^\$\$\$\$$/;
    print $_;
}
[download]