perl -ple's[P200000976][Test123456]g;' <infile >outfile