Select Code to Download

  $Code = "BCBCBCBCBCCCB";
  $What = "BC";
...
  $Code =~ m/($What)+?/;
  $Exp = length ( $1 ) / length ( $What );
  $Code =~ s/$1/($What)^($Exp)/e;