Help for this page
perl -i -lpe "s/^\s*$/<r><\/r>/g" test(filename i used to check separa +tely)
print OUTFILE "$result{$moid}{$ext}{$kpi[$jk]}\n"; perl -i -lpe "s/^\s*$/<r><\/r>/g" $OUTFILE