If you're using perl 5.8 you can use the new sub-template function in unpack:

  my @d = unpack "(A$n)*", $string;
[download]

Dan Kubb, Perl Programmer