my @lines = grep(length, split(/(.{80})/, $data));