#!perl -p0
s!\.!map/f|k/g,$`.\3x3^1x024.$_!eg