$au = qr{ $dom \.   # company
          $dom \.   # subdomain
          au        # ccTLD
          \. ?      # optional trailing dot
          \b        # word break
         }xi;