$ perl -MData::Dumper -e 'print Dumper(       "abbbbc"=~/b/    )'
$VAR1 = 1;
$ perl -MData::Dumper -e 'print Dumper(       "abbbbc"=~/(b)/  )'
$VAR1 = 'b';
$ perl -MData::Dumper -e 'print Dumper(scalar("abbbbc"=~/b/   ))'
$VAR1 = 1;
$ perl -MData::Dumper -e 'print Dumper(scalar("abbbbc"=~/(b)/ ))'
$VAR1 = 1;
$ perl -MData::Dumper -e 'print Dumper(scalar("abbbbc"=~/b/g  ))'
$VAR1 = 1;
$ perl -MData::Dumper -e 'print Dumper(scalar("abbbbc"=~/(b)/g))'
$VAR1 = 1;
$ perl -MData::Dumper -e 'print Dumper(       "abbbbc"=~/b/g   )'
$VAR1 = 'b';
$VAR2 = 'b';
$VAR3 = 'b';
$VAR4 = 'b';
$ perl -MData::Dumper -e 'print Dumper(       "abbbbc"=~/(b)/g )'
$VAR1 = 'b';
$VAR2 = 'b';
$VAR3 = 'b';
$VAR4 = 'b';

##</code><code>##

$ perl -MData::Dumper -e 'print Dumper(scalar(()="abbbbc"=~/b/g))'
$VAR1 = 4;
$ perl -MData::Dumper -e 'print Dumper(scalar(()="abbbbc"=~/(b)/g))'
$VAR1 = 4;