perl -E '$x = "XXXXXAAAAABBBBBCCCCC" x 1E7; $ahora = time; $y = join "\n" => grep { length > 0 } split /(.{5})/, $x; say time-$ahora'