Select Code to Download

#!perl
use strict;
...
    s/^Phone:.*\n//;
    print;
}

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