#!perl
use strict;
use 5.010;

local @ARGV = 'myinfo.txt';
local $^I   = '.bak';

while( <> ) {
    s/^Author:.*/Author: Johny5/;
    s/^Phone:.*\n//;
    print;
}

##</code><code>##

#!perl
use strict;
use 5.010;

local @ARGV = 'myinfo.txt';
local $^I   = '.bak';

while( <> ) {
    s/^Author: \K.*/Johny5/;
    s/^Phone:.*\n//;
    print;
}