#!perl -p s/\C/$&$&/sg