#!perl -pl
$_+=s/p|(.)(?=Q|.\1)//g<9