Select Code to Download

#!/usr/bin/perl

...
        }
     }
}

elsif ($text =~         # $GENERATE
               s/
...
                substr($text, 0, 0) = $rr;
            }
        }