#!/usr/bin/env perl -l

use strict;
use warnings;

my $url = 'www.example.com.au';

my ($domain) = $url =~ m|www.([A-Z a-z 0-9]+.{3}).|x;
print '$domain=[', defined $domain ? $domain : '<undef>', ']';