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