$line =~ s/$/,P/ if /^1\D/;