$_ = ; unless (tr/\n//) { s/(.{320})/$1\n/g; } print OUT;