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