#!/usr/bin/perl -w
use strict;

my $email = 'joe.snuffy@nowhere.com';

my $domain = substr($email,index($email,'@') + 1);

print "Domain is $domain\n";