Select Code to Download

while (<>) {
 chomp if /^CLI\b/;
...
 chomp($line) if $line =~ /^CLI\b/;
 print $line;
}

my @lines;
my $last_line_was_CLI = 0;
...
  push @lines, $_;
 }
}