#!perl -0p
s:\.:(1x42 .$_^$`.(aaa.1x38)x3)=~y/K//or$&:ge