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