<>;while(<>){ $_=<>; $k=()=/K+/g; $p=()=/P+/g; print$k>=$p?K:P,$/; }