perl -ple"binmode*ARGV if $.==1; s[P200000976][Test123456]g;" <infile >outfile

##</code><code>##

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