$domainID =~ (s/(AD|MAIN)\n/n/);   # should not be
$domainID =~ (s/(AD|MAIN)\r/r/);   # checked 3 times
$domainID =~ (s/(AD|MAIN)\t/t/);   # before exiting