for my $email (@addresses) 
{
    if ($email =~ m/^(.*?)ulster.ac.uk/) 
    {
        print $1 , "\n";
    };
};