$foo =~ s/([0-9A-F]+)(?::|$)/substr "0$1", -2/ge;