Hello knight.of.ni,

tangent has identified the logic error in your code, and AnomalousMonk has outlined a better approach. I just want to point out that if you exit from the while loop you will never reach the close statements after the loop ends. Use last instead.

A few other points:

• The first my $zeichen is masked by the declaration of my $zeichen within the while loop condition.
• The /g modifier on the regex does nothing in this case.
• In fact, a regex isn’t really needed here at all: if ($buffer eq 'IEND') is clearer and more efficient.
• You should either test the open and close statements for failure, or use autodie.

Hope that helps,