You are managing a customer contact list that contains user-entered email addresses in various formats. Some emails are invalid, and valid emails use different domain names. Your goal is to clean this list by filtering out invalid emails and standardizing all valid email addresses to use the domain "company.com".

• Use grepl() to filter only valid email addresses from the input vector.
• Use gsub() to replace the domain of each valid email with "company.com".
• Return a vector containing the cleaned, standardized email addresses.