# $str is built past $e's position, with $e omitted.
# $x is now known
substr
    $str,
    length($a)+length($b)+length($c)+length($d),
    0,
    sprintf '%010d', length($x);