$com = qr{ $dom \.  # company
           com      # gTLD
           \. ?     # optional trailing dot
           \b       # word break
         }xi;