open IN, $file
    or die "Cannot open $file for reading; $!";
my $c = 0;
my @lines = map {
    $c++;
    chomp;
    die "Input line $c in $file irregular:\n$_\n"
        if (length % 320);
    m/(.{320})/g
} <IN>;
close IN;

if (@lines) {
    open OUT, ">$file.new"
        or die "Can't open $file.new for output; $!";
    print $_,"\n" foreach (@lines);
    close OUT;
}