Problem mit Tie::file und zeilenende

[Siechfred]

also meine datei sieht jetzt so aus
[...]

Die Struktur ist nicht optimal. Du vermischst CSV mit XML und machst es Dir damit unnötig schwer. Entweder Du bleibst - wie ursprünglich - bei CSV, oder Du setzt XML ein, dann aber konsequent.

Wären Deine Daten so aufgebaut, wie im Ursprungsposting, wäre die Ausgabe ein Leichtes:

my $user = 'Nicole';  
while(<LIST>) {  
  next unless /$user/;  
  my ($name, $vname, $age, $status) = split /,/;  
  print "$vname $name ist $age Jahre alt und hat den Status $status\n";  
}

(ungetestet)

Siechfred