Help for this page
c:\@Work\Perl\monks>perl -wMstrict -le "my $re_obj = qr{([0-6BS])}; ... " (?^:([0-6BS])) match, $1 captured 'B'