$ perl -E 'my $re = qr{([0-6BS])}; my %x = ($re, 1); my @y = keys %x; $_ = "B"; /$y[0]/; say $1'
B