@record = unpack $template, substr $data,0,$len,'';