use strict;

	open (NEW, ">", "FILE_OUTPUT.txt" ) or die "could not open:$!";
	open (FILE, "<", "UBTEST.txt") or die "could not open:$!";

	while (<FILE>) {
	print NEW $_;
		if (/END OF EXPANDED DATA  5010/){
			print NEW "\n";
	}
}
close (FILE);
close (NEW);