$start = index $buf, 'IEA';
$end = index $buf, $delim, $start;
$length = $end - $start;