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