$S=<>;print$S=~s/$_//g+0,$"for Y,E,A,H,'!'