Select Code to Download

$dom = qr{
          [a-z]       # starts with a letter
          [a-z0-9-]*  # zero or more letters, numbers, hyphens
         }xi;

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

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

my $domain = qr{ (?:        # start of group
                   $dom \.  # company subdomain
...
                   $au      # .au pattern
                 )          # end of group
               }xi;

use strict;
use warnings;
...
        fail( $test_name );
    }
}