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


##</code><code>##

use Net::MAC;
print Net::MAC->new( mac => '525400eb8b36' )->as_Sun();