#!perl -p0
s#\.#map/"/g,9x42 .$_&$`.(vvv.1x38)x3or$&#ge