in reply to Insert colons into a MAC address
Could be written as:
$mac = join(':', unpack '(A2)*', $_);