c:\@Work\Perl>perl -wMstrict -le
"print qq{version $]};
 ;;
 my $rx = '(?:(?i)b)';
 print qq{match x: '$1'} if 'aaBbBcc' =~ /($rx+)/;
 ;;
 my $ry = '(?i-mxs:b)';
 print qq{match y: '$1'} if 'aabBbcc' =~ /($ry+)/;
"
version 5.008009
match x: 'BbB'
match y: 'bBb'