for my $file ( @files ) {
	open IN, "$file" or die "Can't open $file!";
	my $count = 0;
	$count += tr/\n// for (<IN>);
	if ( !$count) {
		open OUT, ">$file.new"
			or die "Can't open $file.new for output!";
		seek IN, 0, 0;
		while ( <IN> ) {
			s/(.{320})/$1\n/g;
			print OUT;
		}
	}
}