/(.).?\1/,/[^$1]/,print"@+ $&"for<>