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