my $re_str="qr{([0-6BS])}";
$_="B";
my $ans;
if (eval m{$re_str})