Re: One for the regexp fans

[Maqs]

try this:

$str =~ s/(.[^\.]*)(\.?)/(substr("0" x 2 .$1, -2)).$2/ge;

/Maqs.

[Odud]

Is my interpretation correct? The first () matches one or more non-dot characters and the second () matches the trailing . or nothing at the end of the string. Then you build a string that has at least two leading zeros and extract the rightmost 2 characters and tag on the trailing . or nothing. I quite like this solution as well. Both you and davorg have come up with good alternatives, thanks. I should think about using substr more - unfortunately it sits in my mind sharing a location with peek and poke! and so doesn't come out to play much these days.

[nuance]

For the substr part, why not just:

(substr ("0$1", -2))

Update: In fact I don't see any reason for the second bracketed expression in the regex. Also I can't see how it expands the first hex number if that's necessary. Is this better? or have I missed something subtle?

$str =~ s/(\.?[0-9a-eA-E]*)/(substr("0$1", -2))/ge;

Nuance

[Maqs]

yep. your variant is an enhanced one. I tried only to make a general idea. :)
/Maqs.