print OUTFILE "$result{$moid}{$ext}{$kpi[$jk]}\n";
perl -i -lpe "s/^\s*$/<r><\/r>/g" $OUTFILE

##</code><code>##

my $out = "$result{$moid}{$ext}{$kpi[$jk]}\n";
$out =~ s{ \A \s* \z }{<r></r>\n}xms;
print OUTFILE $out;