print sprintf "%02s%02s%02s%02s%02s%02s", split /:/, $value;