eval "\$current_format = \$fmt_$format";
@line = unpack($current_format, $data);