<>=~'.*(.)(??{print$b="$1$b$1",$/})'