Comment 1 for bug 1464765

How about something like this?

CREATE OR REPLACE FUNCTION evergreen.lpad_number_substrings(text, text, integer)
 RETURNS text
 LANGUAGE plperlu
AS $function$
    my $string = shift;
    my $pad = shift;
    my $len = shift;

    $string =~ s/([0-9]+)/$pad x ($len - length($1)) . $1/eg;

    return $string;
$function$