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