#!perl
use strict;
use 5.010;

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

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

##</code><code>##

$ perl -p -i.bak -w -e 's/dude/Johnny5/g' myinfo.txt