perl -i -lpe "s/^\s*$/<r><\/r>/g" test(filename i used to check separately)

##</code><code>##

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