push @lines, substr $_, 0, length $1, "";