my $server_name = 'www.example.com';
my ( $prefix, $domain )
    = ( $server_name =~ m{ \A (\w+) \. (\w+) \. com }xms );
print "prefix: '$prefix'\n";
print "domain: '$domain'\n";