#!perl -p s/./$&x2/ges