# Strictures are really important
# Strictures are really important
    replace => ['# Strictures are really important', '# Strictures are really important'],
    );
edit ('noname.txt', @edits);
        insert => \&insert_line,
        delete => \&delete_line,
        replace => \&search_replace,
        );
    $old = $file;
    $new = "$file.tmp.$$";
    $bak = "$file.bak";
    @$inLines = <$OLD>;
    close ($OLD);
        $inLines = $outLines;
    print $NEW @$inLines;
    close ($NEW);
        s/$find/$replace/g;