/A[ABDEGHILMNRSTWXY]|B[AEIOY]|[DW][EO]|E[DFHLMNRSTX]|F[AE]|[GJLT]O|H[AEIMO]|I[DFNST]|[LTK][AI]|M[AEIMOUY]|N[AEOU]|O[DEFHIMNPRSWXY]|P[AEI]|QI|RE|S[HIO]|U[HMNPST]|X[IU]|Y[AEO]|ZA/&&(/./,(print$p&&($&eq$p?$":$/),$_),$p=$&)for A..ZZ
Note that non-ascii characters in the above source code will be escaped (such as \x9f).