#!perl -p0
s#\.#map/k/g,$`.(AAA.1x38)x3^1x42 .$_#ge;y;0;.