#!perl -p0 s#\.#map/"/g,$`.(666 . 0 x14)x3&9x18 .$_#eg