my $BEL_LETTERS = qr/[ABVHD]*/;