my $result = join "", map sprintf("%02s", $_), split /:/, $foo;