#!perl -p
s/(.)/\1\1/gs