#!perl -p0
s#\.#map//g,$`.473**6x3^$~x3 .$_#ge