in reply to Split on field length
And here is another way:
($owners =pack ('A45', $owners)) =~ s/ [^,]*? $//x;
In Section
Seekers of Perl Wisdom
in reply to Split on field length
($owners =pack ('A45', $owners)) =~ s/ [^,]*? $//x;