Forgot to put CODE tags, so I am replying to myself.

<CODE>$mac = join "", map {sprintf "%02s", $_} split '\.', $addr<CODE>