#!usr/bin/perl -w 

use strict; 
use warnings; 

my $IN  = "daten.txt";  
my $OUT = "auswertung.xls"; 
  

use Spreadsheet::WriteExcel; 
open IN, "<$IN" or die "Fehler beim Oeffnen von $IN"; 

my @eintraege = (); 

while(<IN>) { 
    chomp; 
    my($frage, $antwort) = split /+/, $_, 2; 
    $antwort ||= ""; 
    push @entries, [$frage, $antwort]; 
} 

close IN; 


my $xlsdat   = Spreadsheet::WriteExcel->new($OUT); 
my $sheet  = $xlsdat->addworksheet(); 


for my $col (0..2) { 
    for my $row (0..220) { 
        my $e = shift @entries; 
        last unless $e;    
        my($frage, $antwort) = @$e; 
            
            # Eintrag schreiben 
        $sheet->write($row, 2*$col, 
                     "$frage - $antwort"); 
    } 
} 
for my $col (0..2) { 
        
        
    $sheet->set_column(2*$col, 2*$col); 
} 
$xlsdat->close();