#!/usr/bin/perl -np
s/<fo:/\n<fo:/g;
s/10pt \* 0.8/8pt/g;
s/10pt \* 1.2/12pt/g;
s/(\d+)em \* 0.60\+1em/sprintf("%.2fem",($1*0.60)+1)/ge;
s/(\d+)in - 0pt/sprintf("%sin",$1)/ge;