Help for this page
perl -ple"binmode*ARGV if $.==1; s[P200000976][Test123456]g;" <infile +>outfile
perl -ple's[P200000976][Test123456]g;' <infile >outfile