#!perl -p0
s#\.#map//g,1x43 .$_^$`.($<.1x37)x3or$&#ge