my $domain = qr{ (?:        # start of group
                   $dom \.  # company subdomain
                 ) ?        # end of group, make it optional
                 (?:        # start of group
                   $com     # .com pattern
                   |        # or
                   $au      # .au pattern
                 )          # end of group
               }xi;