#!perl -p0
s!\.!map//g,$`.$$/-9x3^2x19 .$_!eg