#!perl -p0
s/\./(1x43 .$_^$`.($<.1x37)x3)=~y,,,or$&/ge