@lines = map { [ split $_, /:/ ]->[0] } @lines; # take the side to the left of the blank of the line