my $re_str="qr{([0-6BS])}";
$_="B";
our @ans = m{$re_str};                                         
P "ans=%s, re_s=%s", \@ans, $re_str;'