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