#!perl -p s/(?<=[A-Z])./$&^$"/ge