my $re_str="qr{([0-6BS])}";
$_="B";
my $ans;
if (eval P (q(my $re=%s; m{$re}), $re_str) ) {
$ans=$1;
}
P "ans=%s, re_s=%s", $ans, $re_str;'