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