/.\K(.) ?\1/,print$1for<>