my $owners = "Shaun Anderson,Salve Barnao,James Clark,John Cross,Bruce Jenkins,George Kelly,Danny Phipps & Robert Rendel";
my @owners;

push @owners, substr( $owners, 0, 1+rindex($owners,",",45), "")
    while 45 < length $owners;
push @owners, $owners;

print $_, $/ for @owners;'

__END__
123456789012345678901234567890123456789012345
Shaun Anderson,Salve Barnao,James Clark,
John Cross,Bruce Jenkins,George Kelly,
Danny Phipps & Robert Rendel