String Zeilenweise durchlaufen

[Perl Anfänger]

Hi

+------------------------------------+
| check = 0                          |
+------------------------------------+
|    while(<STDIN>)                  |
|    +-------------------------------+
|    | \  Passt Zeile auf reg.     / |
|    |    \   Ausdruck          /    |
|    |       \               /       |
|    |          \         /          |
|    | TRUE        \   /       FALSE |
|    +-------------------------------+
|    |               |               |
|    | ", WORT2"     |               |
|    | anfügen       |               |
|    |               |               |
|    | check = 1     |               |
|    |               |               |
+------------------------------------+
| \        Ist check = 0           / |
|    \                          /    |
|       \                    /       |
|          \              /          |
|             \        /             |
| TRUE           \  /         FALSE  |
+------------------------------------+
| Zeile anhängen   |                 |
+------------------------------------+

ich hoffe das hilft etwas :-)