my @lines = map { /:\s*(.*)/ ? $1 : () } @array;