Select Code to Download

$a = 2;
$b = "-";
...
$stemp = "\/" . "ABC" x $a . "\/";
$regxp = eval 'qr' . $stemp;
$base =~ s/$regxp/$b/g;

$base =~ s/[ABC]{$multi}/$replace/g;