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

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

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