#!perl -p s/./$&$&/sg