my @list = eval { unpack "x$skip $format", $data };
{ die "$@" || last }