String Zeilenweise durchlaufen

[Perl Anfänger]

jetzt muss ich nur noch rausbekommen, wie ich den aktuellen Index bearbeiten kann

Wozu?

ich möchte bei jeder Zeile prüfen, ob ein regulärer Ausdruck passt, wenn er passt, möchte ich am Ende dieser Zeile etwas anhängen
wenn der reguläre Ausdruck bei keiner Zeile zutrifft, möchte ich am Ende etwas einfügen

Danke