String Zeilenweise durchlaufen

[Perl Anfänger]

Hi!

wie kann ich ein String in Perl 5.8.8 Zeilenweise durchlaufen?

Bei "while($string){..}" erhalte ich folgende Fehlermeldung

Use of uninitialized value in pattern match (m//) at /xyz/test.pl line 43, <STDIN> line 18.
Use of uninitialized value in concatenation (.) or string at /xyz/ line 48, <STDIN> line 18.

verwende ich stattdessen "while(<STDIN>){...}" läuft das Script durch

Danke