$_ = '525400eb8b36';
die "Invalid input\n" if length != 12 or /[^[:xdigit:]]/;
print join ':', unpack '(A2)*';