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