open ZIP, ">myinfo.txt";
$^I = "myinfo.txt.bak";

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

close ZIP;