while(<>) {
	s/(^1.*)/\1,P/g;
	print;
}