Another way is to use substr's ability to insert strings.

# $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);
[download]