in reply to Token-Ring MAC-Address
perl -le 'print join "-", map { y/0123456789ABCDEFabcdef/084C2A6E195D3 +B7F5D3B7F/; $_ = reverse } split /-/, $ARGV[0]' xx-xx-xx-xx-xx-xx [download]
perl -le "print unpack'N', pack'B32', '00000000000000000000001011011010'"