Datei auslesen

[Azubi]

Hallo.

Habe ein Problem mit meinem Skript. Dies soll aus einer Datei, welche nur 1 Zeile enthält, einen bestimmten "Satz" auslesen.
Mein Suchmuster:
for (my $l=0; $l<5; $l++)
{
$datei[$i] =~ /([0-9]{4})([C]{1})(.{182})/;
......

Mein Problem ist, das er immer nur einen Satz speichert (den ersten der jeweiligen Datei) obwohl die datei bis max. 5 Stück enthält auf die das Suchmuster zutrifft. Hab mir auch schon die Postion des Zeiger anzeigen lassen. Dieser befindet sich sobald er den ersten Satz gefunden hat am Ende der Datei....

Würde mich über rasche Antworten freuen
Danke