And here is another way:

($owners =pack ('A45', $owners)) =~ s/ [^,]*? $//x;
[download]