Use a regex, see the docs

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