Help for this page

Select Code to Download


  1. or download this
    my $re_str=qr{([0-6BS])};
$_="B";
my $ans;
if (eval m{$re_str})
  2. or download this
    my $re_str="qr{([0-6BS])}";
$_="B";
my $ans;
if (eval m{$re_str})
  3. or download this
    #not tested, YMMV
for $key (keys %options)
...
        }
    }
}