zen3 => 'my $mac = $data; $mac = ":" . $data . ":";
                             $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::))/0/g;
                             $mac =~ s/^:|:$//; $mac;',

   zen4 => 'my $mac = $data; $mac = ":$data:";
                             $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::))/0/g;
                             $mac =~ s/^:|:$//; $mac;',

   zen5 => 'my $mac = $data; $mac = ":$data:";
                             $mac =~ s/(?<=:)(?=[0-9a-fA-F](?::))/0/g;
                             $mac = substr $mac, 1,-1; $mac;',