while (my $zeichen = getc($handle1))