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