Guest wer

oder

Code (perl): (dl )

1
2

<FILE>;
if(/Everything is Ok/)

was soll das tun?
<FILE> liest eine zeile aus FILE und wirft sie weg. die regex nimmt $_ als argument.
<FILE> verändert $_ *nicht*.

lediglich die while-schleife
while (<FILE>)
setzt $_ auf die jeweilige zeile.