#!/usr/bin/perl

use strict;
use warnings;

sub edit_inplace {
    local @ARGV = @_;
    local $^I = ".bak";
    # local $^I = "";  # no backup file
    
    while (<>) {
        s/(.*)/$1\n****************/;
        print $_;
    }
}

edit_inplace("test.txt");