$domain = 'foo.com.au';

(my $first_bit) = $domain =~ m/([^.]+)/;

print $first_bit;