$telnet->print('show running-config');
while( my $line = $telnet->getline() )
    {
push @lines, $line;
$match = $telnet->waitfor(Match => '/\-\-More\-\-$/i');
      if ($match =~ /\-\-More\-\-/){
         $telnet->print(" ");
      }
}