Für mich unpack - bar!

[Robert]

Guten Abend...

als Perlanfänger habe ich eine kleine Frage... also nicht lachen...

ich habe ein array erstellt, welches ich dann in binärer Form in eine
Datei geschrieben habe...etwa so:

my @Data = ("ich bin text_1", "und ich text_2");
my $Format = "u20 u15";
my $BinData = pack($Format, @Data);
my $TFile = "file.dat";

sysopen(DATEI, $TFile, O_WRONLY | O_EXCL | O_CREAT, 0644) or die $!;
flock(DATEI, LOCK_EX);
print DATEI "$BinData";
close(DATEI);

Nun ist mir aufgefallen, dass ich mir noch keine Gedanken darüber gemacht habe, wie ich die Daten wieder einlesen kann, um sie wieder in ein array zu packen. Meine Versuche dies zu erreichen enden entweder mit einer Fehlermeldung oder damit, dass nur der 1. Text ausgelesen wird. Irgendwie komm ich mit unpack nicht klar. Wie kann ich die unterschiedlichen Formatierungslängen (u20, u15) in eine Schleife stecken?

Ich danke im voraus für jede Hilfe oder Verweise!

Robert.