Select Code to Download

while(1) {
  my $match = $telnet->waitfor(Match => '/^--More--$/i',
...
    push @lines, $match;
  }
}