c:\@Work\Perl\monks>perl -wMstrict -le
"my $octetstr = qq{\x44\x69\x66\x66\x65\x72};
 print qq{raw: '$octetstr'};
 ;;
 my $mac = join '.', unpack '(H4)*', $octetstr;
 print qq{reformatted: '$mac'};
 ;;
 if ($octetstr eq $mac) {
   print qq{'$octetstr' and '$mac' are equal};
   }
 else {
   print qq{'$octetstr' and '$mac' are NOT equal};
   }
"
raw: 'Differ'
reformatted: '4469.6666.6572'
'Differ' and '4469.6666.6572' are NOT equal