use Regexp::Common;
if ($name =~ /^$RE{net}{domain}\z/) { ... }