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