#!perl -p
s/.(.)/$&\1/g