c:\@Work\Perl\monks>perl -wMstrict -le
"my $octetstr = qq{\xab\xcd\x00\x1d\x94\x56};
 ;;
 my $mac = join '.', unpack '(H4)*', $octetstr;
 print qq{'$mac'};
"
'abcd.001d.9456'