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