#!perl
use strict;
use 5.010;

$^I = "myinfo.txt.bak";

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