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