/^([0-9a-f]{2}([:-]|$)){6}$/i

##</code><code>##

@nums = split /[:-]/, $mac;

##</code><code>##

/((?:[0-9a-f]{2}[:-]){5}[0-9a-f]{2})/i