if (open(SF,"<$input")) {
	if (open(DF,">>$output")) {
		$fmt_edi = <SF>;
		$fmt_edi =~s/\v/\n/gs;
		print DF "$fmt_edi"; 
	} else {
	}
} else {
}
close DF;
close SF;