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