Help for this page
my $bblock1 = "[a-f]"; my $bblock2 = "foo"; my $bblock3 = "(?:$bar|$baz)";
my $bblock4 = "[a-i]"; my $bblock5 = "[A-I]"; my $bblock6 = "[0-9]"; my $bblock7 = "$bblock4|$bblock5|$bblock6"; $bblock7 =~ s/\Q]|[\E//g; # Make one range