$ perl -E 'my $re = qr{([0-6BS])}; say $re'
(?^u:([0-6BS]))