my @saetze = ();
for my $zeile (<$file>) {
    my ($nummer, $wort) = split(/ /, $zeile, 2);
    if ($nummer == 1) {
        push @saetze, $wort;
    }
    else {
        $saetze[-1] .= $wort;
    }
}