Listing:

$address = "mainline.brynmawr.edu";
$address =~ s/.*\.//;
print "$address\n";

Output:

edu