Select Code to Download

mouse
cat
...
^cat
dog
fish

mouse
#cat
...
#^cat
dog
fish

 my $comment=0;
 for (@a) {
...
  $_ = '#'.$_ if $comment;
  $comment-- if /^\#\^cat\b/;
 }