If I'm understanding you correctly, you want
@vals = unpack "(A2)*", $in; [download]
In reply to Re: Difficulties with split by almut in thread Difficulties with split by transiency