see here (perlfaq4): Just count (additionally) how often .com occurs in your string
However this is probably not what you want ... you probably want to allow a@my.company.com ... so you might want to search for .com.com ... or even   \.com\.com$