#!/usr/bin/perl -w

use strict;

use Digest::SHA 'sha256_hex';

my @a = split //, 'BCDFGHJKMPQRTVWXY2346789';

my @b = map { $a[rand @a] } 1 .. 12;

@a = map { $a[hex] } (split //, sha256_hex join '', @b)[-13 .. -1];

print join('-', unpack 'a5' x 5, join '', map({ $a[$_], $b[$_] } 0 .. $#b), $a[$#a]), "\n";