if ($line =~ /More/i) {
		print "More gefunden\n";
		$telnet->print('\n');
	}
	print $line;