my @mac_bits = $mac =~ /\G ( [0-9A-Z]{1,2} ) (?: :|$ ) /igx;
print 'no MAC address' unless (@mac_bits == 6);