while($actchar = getc(INFILE)){
    if($actchar =~ m/\n/ or $actchar =~ / /){
        push @file, $actchar;
    }
    else{
        $actchar = uc($actchar);
        push @file, $actchar;
        $laenge++;
    }
}