@lines = map { [ split $_, /:/ ]->[1] } @lines; # Take the side to the right of : of the line