perl -le 'print join "-", map { y/0123456789ABCDEFabcdef/084C2A6E195D3B7F5D3B7F/; $_ = reverse } split /-/, $ARGV[0]' xx-xx-xx-xx-xx-xx